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TERMS AND CONDITIONS OF SALE AND LICENSE OF RADIO SHACK COMPUTER EQUIPMENT AND SOFTWARE 

PURCHASED FROM A RADIO SHACK COMPANY-OWNED COMPUTER CENTER. RETAIL STORE OR FROM A 

RADIO SHACK FRANCHISEE OR DEALER AT ITS AUTHORIZED LOCATION 



LIMITED WARRANTY 



CUSTOMER OBLIGATIONS 
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A. CUSTOMER assumes tull responsibility that this Radio Shack computer hardware purchased (the "Equipment"}, and any copies of Radio 
Shack software included with the Equipment or hcensed separately (the 'Software") meets the specifications, capacity, capabilities, 
versatility, and other requirements of CUSTOMER. 

B. CUSTOMER assumes full responsibility lor the condition and effectiveness of the operating environment in which the Equipment and Software 
are to function, and for its installation. 

II. RADIO SHACK LIMITED WARRANTIES AND CONDITIONS OF SALE 

A For a period of ninety (90) calendar days from the date of the Radio Shack sales document received upon purchase of the Equipment, RADIO 
SHACK warrants to the original CUSTOMER that the Equipment and the medium upon which the Software is stored is free from manufacturing 
defects. THIS WARRANTY IS ONLY APPLICABLE TO PURCHASES OF RADIO SHACK EQUIPMENT BY THE ORIGINAL CUSTOMER FROM 
RADIO SHACK COMPANY-OWNED COMPUTER CENTERS, RETAIL STORES ANO FROM RADIO SHACK FRANCHISEES AND DEALERS AT ITS 
AUTHORIZED LOCATION. The warranty is void if the Equipment's case or cabinet has been opened, or if the Equipment or Software has been 
subjected to improper or abnormal use If a manufacturing defect is discovered during the stated warranty period, the defective Equipment 
must be returned to a Radio Shack Computer Center, a Radio Shack retail store, participating Radio Shack franchisee or Radio Shack dealer 
for repair, along with a copy of the sales document or lease agreement. The original CUSTOMER'S sole and exclusive remedy in the event of 
a defect is limited to the correction of the defect by repair, replacement, or refund ot the purchase price, at RADIO SHACK'S election and sole 
expense. RADIO SHACK has no obligation to replace or repair expendable items. 

B. RADIO SHACK makes no warranty as to the design, capability, capacity, or suitability for use of the Software, except as provided in this 
paragraph. Software is licensed on an "AS IS" basis, without warranty. The original CUSTOMER'S exclusive remedy, in the event of a 
Software manufacturing defect, is its repair or replacement within thirty (30) calendar days of the date of the Radio Shack sales document 
received upon license of the Software. The detective Software shall be returned to a Radio Shack Computer Center, a Radio Shack retail store, 
participating Radio Shack franchisee or Radio Shack dealer along with the sales document. 

C. Except as provided herein no employee, agent, franchisee, dealer or other person is authorized to give any warranties of any nature on behalf 
of RADIO SHACK. 

D. Except as provided herein. RADIO SHACK MAKES NO WARRANTIES, INCLUDING WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A 
PARTICULAR PURPOSE. 

E. Some states do not allow limitations on how long an implied warranty lasts, so the above limitation(s) may not apply to CUSTOMER. 

III. LIMITATION OF LIABILITY 

A EXCEPT AS PROVIDED HEREIN, RADIO SHACK SHALL HAVE NO LIABILITY OR RESPONSIBILITY TO CUSTOMER OR ANY OTHER PERSON 
OR ENTITY WITH RESPECT TO ANY LIABILITY, LOSS OR DAMAGE CAUSED OR ALLEGED TO BE CAUSED DIRECTLY OR INDIRECTLY BY 
"EQUIPMENT" OR "SOFTWARE" SOLD, LEASED. LICENSED OR FURNISHED BY RADIO SHACK, INCLUDING, BUT NOT LIMITED TO, ANY 
INTERRUPTION OF SERVICE, LOSS OF BUSINESS OR ANTICIPATORY PROFITS OR CONSEQUENTIAL DAMAGES RESULTING FROM THE 
USE OR OPERATION OF THE "EQUIPMENT" OR "SOFTWARE". IN NO EVENT SHALL RADIO SHACK BE LIABLE FOR LOSS OF PROFITS, OR 
ANY INDIRECT, SPECIAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF ANY BREACH OF THIS WARRANTY OR IN ANY MANNER 
ARISING OUT OF OR CONNECTED WITH THE SALE, LEASE, LICENSE, USE OR ANTICIPATED USE OF THE "EQUIPMENT" OR "SOFTWARE". 

NOTWITHSTANDING THE ABOVE LIMITATIONS AND WARRANTIES, RADIO SHACK'S LIABILITY HEREUNDER FOR DAMAGES INCURRED BY 
CUSTOMER OR OTHERS SHALL NOT EXCEED THE AMOUNT PAID BY CUSTOMER FOR THE PARTICULAR "EQUIPMENT" OR "SOFTWARE" 
INVOLVED. 

B. RADIO SHACK shall not be liable for any damages caused by delay in delivering or furnishing Equipment and/or Software. 

C. No action arising out of any claimed breach of this Warranty or transactions under this Warranty may be brought more than two (2) years 
after the cause of action has accrued or more than four (4) years after the date of the Radio Shack sales document for the Equipment or 
Software, whichever first occurs. 

D. Some states do not allow the limitation or exclusion of incidental or consequential damages, so the above limitation(s) or exclusion(s) may 
not apply to CUSTOMER. 

IV. RADIO SHACK SOFTWARE LICENSE 

RADIO SHACK grants to CUSTOMER a non-exclusive, paid-up license to use the RADIO SHACK Software on one computer, subject to the following 
provisions: 

A. Except as otherwise provided in this Software License, applicable copyright laws shall apply to the Software. 

B. Title to the medium on which the Software is recorded (cassette and/or diskette) or stored (ROM) is transferred to CUSTOMER, but not title to 
the Software. 

C CUSTOMER may use Software on one host computer and access that Software through one or more terminals if the Software permits this 
function. 

D. CUSTOMER shall not use, make, manufacture, or reproduce copies of Software except for use on one computer and as is specifically 
provided in this Software License. Customer is expressly prohibited from disassembling the Software, 

E. CUSTOMER is permitted to make additional copies of the Software only for backup or archival purposes or if additional copies are required in 
the operation of one computer with the Software, but only to the extent the Software allows a backup copy to be made. However, for 
TRSDOS Software, CUSTOMER is permitted to make a limited number of additional copies for CUSTOMER'S own use. 

F. CUSTOMER may resell or distribute unmodified copies of the Software provided CUSTOMER has purchased one copy of the Software for each 
one sold or distributed. The provisions of this Software License shall also be applicable to third parties receiving copies of the Software from 
CUSTOMER. 

G. All copyright notices shall be retained on all copies of the Software. 
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V. APPLICABILITY OF WARRANTY 

A. The terms and conditions of this Warranty are applicable as between RADIO SHACK and CUSTOMER to either a sale ot the Equipment and/or 
Software License to CUSTOMER or to a transaction whereby RADIO SHACK sells or conveys such Equipment to a third party for lease to 
CUSTOMER. 

B. The limitations of liability and Warranty provisions herein shall inure to the benefit of RADIO SHACK, the author, owner and/or licensor of the 

Software and any manufacturer of the Equipment sold by RADIO SHACK. 

VI. STATE LAW RIGHTS 

The warranties granted herein give the original CUSTOMER specific legal rights, and the original CUSTOMER may have other rights which vary 
from state to state. 
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READ ME FIRST 

All computer software is subject to change, correction, or improvement as the 
manufacturer receives customer comments and experiences. Radio Shack has 
established a system to keep you immediately informed of any reported prob- 
lems with this software, and the solutions. We have a customer service network 
including representatives in many Radio Shack Computer Centers, and a large 
group in Fort Worth, Texas, to help with any specific errors you may find in 
your use of the programs. We will also furnish information on any improve- 
ments or changes that are "cut in" on later production versions. 



To take advantage of these services, you must do three things: 

(1) Send in the postage-paid software registration card included in this manual 
immediately. (Postage must be affixed in Canada.) 

(2) If you change your address, you must send us a change of address card 
(enclosed), listing your old address exactly as it is currently on file with us. 

(3) As we furnish updates or "patches", and you update your software, you 
must keep an accurate record of the current version numbers on the logs 
below. (The version number will be furnished with each update.) 

Keep this card in your manual at all times, and refer to the current version 
numbers when requesting information or help from us. Thank you. 



APPLICATIONS SOFTWARE 
VERSION LOG 



ouoaoo 



OP. SYSTEM 
VERSION LOG 
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This document contains the information required to compile, run and 
debug RS/COBOL language programs on the Radio Shack TRS-80 Model 4 
Microcomputer under the TRSDOS Disk Operating System. 

It assumes the reader is familiar with the RM/COBOL Language, the 
general operation of the TRS-80 Model 4 Microcomputer, and the TRSDOS 
Operating System. The reader is specifically referred to the 
following publications: 

TRS-80 Model 4 RS/COBOL* Language Manual 

TRS-80 Model 4 Operation Manual 

TRS-80 Model 4 Disk Operating System Reference Manual 

This guide is organized such that each chapter fully describes a 
particular operational procedure. While the experienced user need 
only refer to the appropriate chapter, it is recommended that the 
first-time user read the complete guide prior to operation of the 
RS/COBOL system. 

Copyrights 

RS/COBOL™ Software: Copyright 1982 Ryan-McFarland 
Corporation. Licensed to Tandy Corporation. All Rights 
Reserved. 

TRSDOS® Version 6 Operating System: Copyright 1983 Logical 
Systems. Licensed to Tandy Corporation. All Rights 
Reserved. 

RS/COBOL 1 " User's Guide: Copyright 1983 Ryan-McFarland 
Corporation. Licensed to Tandy Corporation. All Rights 
Reserved. 

COBOL Language Manual: Copyright 1983 Tandy Corporation and 
Ryan-McFarland Corporation. Licensed to Tandy Corporation. 
All Rights Reserved. 

Reproduction or use without express written permission from 
Tandy Corporation, of any portion of this manual is 
prohibited. While reasonable efforts have been taken in the 
preparation of this manual to assure its accuracy, Tandy 
Corporation and Ryan-McFarland assume no liability resulting 
from any errors or omissions in this manual, or from the use 
of the information contained herein. 

TRSDOS is a registered trademark of Tandy Corporation 
RM/COBOL is a registered trademark of Ryan-McFarland 
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Important Note to 
Model 4 Users 



From time to time Radio Shack may release new versions of TRSDOS, the 
TRS-80 disk operating system. Check with your local Radio Shack or the 
TRS-80 Microcomputer News for notices and instructions on these enhanced 
versions of TRSDOS. 

If you receive a new version of TRSDOS, read the following before making any 
modifications to your existing software packages (applications, languages, or 
system utilities): 

• Do not convert your Radio Shack software for use with the new version of 
TRSDOS unless you are instructed to do so. 

• If you're using several different software packages, press the RESET button 
whenever you change software. 



Overview of the Model 4 COBOL Documentation 
Package. 

This binder contains the information you need to use the Radio Shack COBOL system. It 
assumes you are familiar with the genera! operation of the Computer, including use of the 
TRSDOS operating system. 

The COBOL system requires a minimal system of 64K RAM and one disk drive. 

The package includes three manuals. 

System User's Guide 

Provides general information, start-up procedures, compiler commands, creation and use of a 
minimal-system runtime diskette, sample programs, and a sample session. Also included is a 
sample session. 

CEDIT User's Guide 

Describes how to create and edit COBOL source files, using the COBOL editor CEDIT, which is 
supplied on the Development diskette. 

RSCOBOL Language Reference Manual 

A complete description of the Radio Shack version of the COBOL programming language. 
Newcomers to COBOL should consult a standard COBOL textbook for tutorial material. 
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USER'S GUIDE 



General Information, 
Compiler Use, Start-Up, 
Sample Programs, and 
Sample Session 



TM 



Radio /hack 




CUSTOM MANUFACTURED IN USA BY RADIO SHACK, A DIVISION OF TANDY CORR 



TABLE OF CONTENTS 



Section 



Page 



CHAPTER 1 THE RS/COBOL COMPILER 

1.1 Compiler Overview 

1.2 Device Assignments 

1.3 Executing the Compiler . 

1.3.1 Compiler Options .. 

1.3.2 Compiler Messages . 

1.3.3 Examples 

The Program Listing .... 

1.4.1 Listing Diagnostics 

1.4.2 Diagnostic Messages 



1.4 



1 
1 
2 
3 
4 
6 
7 
8 
8 
9 



2.1 

£* • /L 

Z • 3 

2, 
2, 
2. 
2. 



2.6 



2 THE COBOL RUNTIME , 

Runtime Overview 

Device Assignments 

Executing the Compiled Program 

3 . 1 Runtime Options 

3 . 2 Runtime Messages 

3.3 Program Termination 

3 . 4 Examples 

Runtime Diagnostics 

File System Considerations 

5.1 RS/COBOL Sequential Files 

5.2 RM/COBOL Relative Files .. 

5.3 RS/COBOL Indexed Files ... 

5.4 RS/COBOL Label Processing 
Runtime Memory Usage 



15 
15 
15 
16 
16 
17 
18 
18 
19 
24 
24 
25 
25 
27 
28 



CHAPTER 3 INTERACTIVE DEBUG , 

3 . 1 Debug Overview 

3.2 User Interaction and Display 

3 . 3 Debug Commands 



29 
29 
29 
29 



CHAPTER 4 SYSTEM CONSIDERATIONS 

4.1 The ACCEPT and DISPLAY Statements .... 

4 . 2 The CALL Statement 

4.3 The COPY Statement 

4.4 The WRITE. . .ADVANCING ZERO. .. Statement 

4.5 The STOP RUN numeric Statement 



31 

31 
32 
34 
35 
35 



CHAPTER 5 INSTALLATION PROCEDURES 

5.1 Installing RS/COBOL 



36 
36 



APPENDIX A SAMPLE SESSION 



37 



RS/COBOL User's Guide 



- in - 



June, 1983, (ver. 1.6) 



THE RS/COBOL COMPILER 



1.1 Compiler Overview 



The RS/COBOL Compiler operates on a TRS-80 Model 4 Microcomputer under 
the TRSDOS Operating System. 

Once executed, the Compiler makes a single pass on the source program, 
generating object and listing files concurrently if desired. Upon 
completion it reports compilation results on the console and returns 
control to TRSDOS. 

Compilation always proceeds to the end of the program, regardless of 
the number of source errors found. 

A listing of the program is generated showing the original RS/COBOL 
source statements, error information, data allocation, Interactive 
Debug information and, optionally, a Cross Reference of all program 
labels and data items. This listing can be directed to the Console, 
the Printer and/or a disk file. 

The generated object file is in a form ready for immediate execution 
by the RS /COBOL Runtime. Object code is produced such that an attempt 
to execute an erroneous statement will terminate execution with an 
appropriate error message. 
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1.2 Device Assignments 

All communication between the Compiler and the User is through the 
system console. 

During operation, the Compiler will require one or more of the 
following devices: 

Console (*D0) compiler command input and compiler messages 

Disk source input file 

Disk listing file (optional) 

Disk object file (optional) 

Disk COPY input file (optional) 

Console (*D0) listing display (optional) 

Printer (*PR) listing print (optional) 

Job Log (*JL) Compiler Messages 
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1.3 Executing the Compiler 

To compile an RS/COBOL source program, issue the following command to 
TRSDOS * 

RSCOBOL filespec (options) comment 
where: 



m espec 



options 



is the file specification of the RS/COBOL source file to be 
compiled; of the form: 

f ilename/ext .password:d 

'filename' is required. 

'/ext' is an optional extension. When omitted, the default 
'/CBL' is used. 

'.password' is an optional password, Note: if the file was 
created with a nonblank password, '.password' becomes a 
required field. 

':d' is an optional drive specification. When omitted, the 
system does an automatic search, starting with drive 0. 

allows the user to specify compiler and/or file options. 
Each option must be specified as shown below, separated by 
spaces. The left and right parenthesis are required if any 
comments are present. 

When no options are specified, the compiler will 
automatically generate an object file but no listing output. 
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1.3.1 Compiler Options 

A=N 



D 



E 



L L=d 



'A=N indicates the printer attached does not have automatic 
line feed after carriage return capability. RS/COBOL will 
terminate each line with both a carriage rturn and a line 
feed. 

'D' instructs the compiler to compile all RS/COBOL "Debug" 
source lines, identified by a "D" in column 7. This allows 
the user selective compilation of RS/COBOL source 
statements . 

This option has no relationship to the RS/COBOL Runtime 
Interactive Debug facility and need not be specified to 
allow such debugging. 

The default is to treat such lines as comments. 

'E' instructs the compiler to generate an 'Error Only' 

listing instead of a full listing. This option is effective 

only when a listing has been specified (L, P and/or T 
options) . 

The listing generated will contain the page heading 

information, all source lines in error with their 

appropriate undermarks and messages, plus all summary 
information. 

The default is not to generate an error listing. 



'L' indicates that the compiler listing is to be written to 
a disk file with the name of the source file and a 
filename-extension of ' /LST ' . The first available disk is 
used, unless the file already exists in which case it is 
reused. 

Specifying a drive number (L=d) indicates that the listing 
file is to be written to disk 'd'. 

The default is not to generate a listing file. 
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O 0=3 0=N 

'0* indicates that the Compiler object output is to be 
written to a disk file with the name of the source file and 
a filename-extension of ' /COB ' . 

Specifying a drive number (0=d) indicates that the object 
file is to be written to disk *d'. When omitted the first 
available disk is used, or an existing file with the same 
name is replaced. 

•0=N' indicates that no object file is to be generated. 

The default is to generate an object file on the first 
available file or disk. 



*P' indicates that the listing is to be printed on the 
printer . 

The default is not to print the listing. 



'T' indicates the listing is to be displayed on the CRT 
(system display). 

The default is not to display the listing. 



'X* indicates a cross-reference of RS/COBOL Procedure and 

Data Division names is to be produced. This option is 

effective only when a listing has been specified (L, P or T 
options) . 

The default is not to generate a cross-reference. 
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1.3.2 Compiler Messages 

Messages which report the compiler's status, or its ability to 

complete the compilation process are reported on the system console as 

they are detected. Status messages are also written to the system job 
log as they are generated. 

TRS-80 Model 4 COBOL Compiler (RM/COBOL Version W.RR.PP) Copyright 
1983 By Tandy Corporation - Licensed from Ryan-McFarland Corporation. 

Indicates that the compiler has been loaded and has begun to 
compile the specified program. 'version W.RR.PP' identifies the 
version (V), revision (R) and patch level (P) of the Compiler. 

Compilation Complete: eeee Errors, wwww Warnings 

Indicates that the compilation has been completed. The values of 
'eeee 1 and 'wwww' indicate the number of errors and warnings, 
respectively, identified in the source program. This message is 
repeated on the listing. 

Parameter Error At: vvvvvvvv 

Indicates that an unrecoverable error was detected on the command 
to execute the compiler. 'vvvvvvvv' will identify the offending 
parameter. The user should reenter the command with the 
necessary corrections. 

Compilation Cancelled 

Compiler cancelled by operator with BREAK key. 
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Compiler Error, No: nnnn 

An internal error has occurred which prevents continued 
compilation. The value of 'nnnn' identifies the condition which 
caused the error. 

0001 Pointer overflow 

The user program has exceeded internal compiler pointers. 
Segment the program and recompile. If this problem still 
exists, separate programs into main program with multiple 
subroutines . 



0002 Roll memory overflow 

The user program has exceeded 
Segment the program and recompile. 



available work space. 



0003 Program overflow 

The program has exceeded an internal compiler limit. One 
of the object sections has run out of space. Segment the 
program or break it into a main program with multiple 
subprograms . 

0004 Compiler error 

An internal compiler error has been encountered. 



0005 Empty source file 

An end of file error was encountered when trying to 
the first record of the COBOL source file. 



read 



1.3.3 Examples 



RSCOBOL PAYROLL (P X) 

locates and compiles the source program PAYROLL/CBL, producing an 
object file (PAYROLL/COB) on the first available disk and a 
listing, with cross-reference, on the printer. 

RSCOBOL M0RTGAGE/SRC:1 (L=2 0=N) 

compiles the source program MORTGAGE/SRC located on the disk in 
drive 1, producing a listing file ( MORTGAGE /LST) on the disk in 
drive 2, and no object file. 
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1.4 The Program Listing 

The compiler outputs 'source', 'allocation ' , and 'summary' listings if 
a listing device or file is specified (L, P or T options). When the 
'X* option is specified, a 'cross-reference' listing is also produced. 

The source listing includes a sequential line number, sentence 
address, source image, and interspersed diagnostics. 

The allocation listing includes the address, size, order, type, and 
name of each identifier. The identifier names are indented to show 
the record structure. (The order of an identifier is the number of 
subscripts it requires). 

The summary listing includes the number of errors, the number of 
warnings, and the size of the program. 

The cross-reference listing includes all identifier names in 
alphabetical order, and the line number of each declaration, source, 
and destination reference. The line number is surrounded by slashes 
if the reference is a declaration; asterisks if the reference is a 
possible modification. References to all paragraphs and sections are 
included. 

In all listings, numbers in decimal are represented as ddd...d, 
numbers in hexadecimal are represented as >dd...d. 



1.4.1 Listing Diagnostics 

Source constructs are checked for syntax and semantic errors as they 
are scanned. Errors may cause interruption in scanning. In this 
case, text is ignored until a recovery point is found and a resume 
message is printed. Recovery points are chosen to minimize the amount 
of unanalyzed text without producing irrelevant error messages. In 
any case, the constructs at fault are undermarked and error messages 
listed when the source line is printed. The error message includes 
either E's or W's indicating error or warning. For example: 

004030 02 STOCK PIC 9(16)PPP COMPUTATIONAL. 

$ 
***** 1) PICTURE *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

Indicates a semantic number size error but 

005040 02 PART PIC X(4BX(5) SYNC. 

***** i)SYNTAX *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
***** 2) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

indicates a syntax error at the first undermark and a recover at the 
second undermark. 
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The number preceding the error message is the undermark number, 
counting from left to right. More than one message may refer to the 
same undermark. 

Global errors such as undefined paragraph names and illegal control 
transfers are listed with the program summary at the end of the source 
listing. 



1.4.2 Diagnostic Messages 

ACCESS CLASH 

Nonsequential access given for sequential file. 

BLANK WHEN ZERO 

BLANK WHEN ZERO clause given for nonnumeric or group item. 

CLASS 

The referenced identifier is not valid in a class condition. 

COPY 

COPY statement failed because of permanent error associated 
with the undermarked file-name. 

CORRESPONDING 

The CORRESPONDING phrase cannot be used with the referenced 
identifier. 

DATA OVERFLOW 

The data area (working-storage and literals) is larger than 
65535 bytes in length. 

DATA TYPE 

Context does not allow data type of the referenced 
identifier . 

DEVICE CLASH 

Random characteristics given to nonrandom device. 

DEVICE TYPE 

OPEN or CLOSE mode inconsistent with device type. 

DOUBLE DECLARATION 

Multiple declaration of a file or identifier attribute. 

DOUBLE DEFINITION 

Multiple definition of an identifier. 

DUPLICATE 

Warning only. Multiple USE procedure declared for same 
function or file. 
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FILE DECL ERROR 

The referenced file-name is SELECTed and has an invalid or 
missing file description (FD) . 

FILE NAME ERROR 

The referenced file-name has an invalid external file name 
declaration. 

FILE NAME REQUIRED 

File name not given as referenced in I/O verb. 

FILE RECORD KEY ERROR 

The referenced file-name has a RECORD KEY which is 
incorrectly qualified or is not defined as a data item of 
the category alphanumeric within a record description entry 
associated with that file name. 

FILE RECORD SIZE ERROR 

The referenced file-name has a declared record size which 

conflicts with the actual data record descriptions or is a 

relative organization file with variable length records. 

FILE RELATIVE KEY ERROR 

The referenced file-name has a RELATIVE KEY which is 
incorrectly qualified, is defined in a record description 
associated with that file-name, or is not defined as an 
unsigned integer. 

FILE STATUS ERROR 

The referenced file-name has a status item which is 
incorrectly qualified, is not defined in the WORKING-STORAGE 
SECTION, or is not a two-character alphanumeric item. 

FILE TYPE 

Access or organization of file conflicts with undermarked 
statement . 

FILLER LEVEL 

A non-elementary FILLER item is declared. 

GROUP CLASH 

USAGE or VALUE clause of group member conflicts with same 
clause for group. 

GROUP VALUE CLASH 

Warning Only. An item subordinate to a group with the VALUE 
IS clause is described with the SYNCHRONIZED, JUSTIFIED, or 
USAGE (other than USAGE IS DISPLAY) clause. 

IDENTIFIER 

Identifier reference is incorrectly constructed or the 
identifier has an invalid or double definition. 

ILLEGAL ALTER 

An ALTER statement references an unalterable paragraph or 
violates the rules of segmentation. 
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LEVEL 



LINKAGE 



ILLEGAL PERFORM 

A PERFORM statement reference undefined or incorrectly 
qualified paragraph or the reference violates the rules of 
segmentation. 

INVALID ID 

The referenced identifier was not successfully defined. 

INVALID PARAGRAPH 

Context does not allow section name. 

JUSTIFY 

JUSTIFY clause given in conflict with other attributes. 

KEY REQUIRED 

Relative key not declared for random access relative file or 
record key not declared for indexed file. 

LABEL 

Presence or absence of label record conflicts with device 
standards . 

Level-number given is invalid either intrinsically or 
because of position within a group. 

An identifier in the USING clause of the PROCEDURE title is 
not a linkage item or a statement references a linkage item 
not subordinate to an identifier in the USING clause of the 
PROCEDURE title. 

LITERAL VALUE 

Literal value given is incorrect in context. 

MOVE 

Operands of MOVE verb specify an invalid move. 

MUST BE INTEGER 

Context requires decimal integer. 

MUST BE PROCEDURE 

Context requires procedure name either as reference or 
definition, or the reference must be a nondeclarative 
procedure-name . 

MUST BE SECTION 

Context requires procedure-name to be section. 

NESTING 

Illegal nesting of condition that is not an IF condition. 

NOT IN REDEFINE 

VALUE IS clause given in REDEFINES item. 
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OCCURS 

OCCURS clause given at invalid level or after three have 
been given for the same item. 

OCCURS DEPENDING ERROR 

The referenced object of a DEPENDING phrase has not been 
defined correctly. 

OCCURS-VALUE CLASH 

VALUE IS and OCCURS in effect for the same item. 

PICTURE 

Invalid PICTURE syntax. 

PICTURE-BWZ CLASH 

Zero suppression and BLANK WHEN ZERO cannot be in effect for 
the same item. 

PICTURE-USAGE CLASH 

USAGE clause or implied usage conflicts with usage implied 
by picture. 

PROCEDURE INDEPENDENCE 

PERFORM given for procedures in independent segments not in 
the current segment. 

PROGRAM OVERFLOW 

The instruction area is larger than 32767 bytes in length. 

RECORD KEY 

Record key declared for other than an indexed organization 
file or a START statement KEY phrase references a data item 
not aligned on the declared key's leftmost byte. 

RECORD REQUIRED 

Context requires record name. 

REDEFINES 

REDEFINES given within an OCCURS or not redefining the last 
allocated item. 

REDEFINES ERROR 

The referenced data-name redefines an item which does not 
have the* same number of character positions and is not level 
01. 

REFERENCE INVALID 

Reference given is not valid in context. 

RELATION 

Operands of relation test are incompatible. 

RELATIVE KEY 

Relative key declared for other than a relative organization 
file or a START statement KEY phrase references a data item 
other than the declared key. 
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RESERVED WORD CONFLICT 

A RS /COBOL reserved word or symbol is given where a user 
word is required. In the summary this is only a warning 
about an ANSI COBOL reserved word that is not an implemented 
RS/COBOL reserved word. 

SCAN RESUME 

Warning only. Scanning was terminated at previous error 
message and resumes at undermarked character. 

SECTION CLASH 

A VALUE IS clause appears in the FILE or LINKAGE section. 

SEGMENT 

Warning only. Segment number given in an independent 
segment is not the same as the current segment or the number 
of a new independent segment. The current segment number is 
used. 

SEPARATOR 

Warning only. Redundant punctuation or a separator is not 
followed by the required space. 

SIGN 

SIGN clause given in conflict with usage and picture. 

SIZE 

Warning only. Size of data referenced not correct for 
context . 

SIZE ERROR 

Declared size of record conflicts with present reference. 

SUBSCRIPT 

Incorrect number of subscripts or indices for a reference. 

SYNC 

Synchronized clause given for a group item 

SYNTAX 

Incorrect character or reserved word given for context. 

UNDEFINED 

File referenced in FD entry was not defined. 

UNDEFINED DECLARATIVE PROCEDURE 

A declarative statement references a procedure not defined 
within the DECLARATIVES. 

UNDEFINED PROCEDURE 

A GO TO statement references an undefined or incorrectly 
qualified paragraph. 

USE REQUIRED 

A DECLARATIVES section must begin with a USE statement. 
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USING COUNT 

Warning only. The item count in the USING list of a CALL 
statement is different from that of the first reference to 
the same program name. 

VALUE ERROR 

Value given in VALUE IS required truncation of nonzero 
digits . 

VALUE 

VALUE IS clause given in conflict with other declared 
attributes . 

VARIABLE RECORD 

Warning only. The INTO phrase is not allowed with variable 
size records. 
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CHAPTER 2 
THE COBOL RUNTIME 



2.1 Runtime Overview 

The RS/COBOL Runtime operates on a TRS-80 Model 4 Microcomputer under 
the TRSDOS Operating System. 

Once invoked, the Runtime loads and executes the compiled object 
program, automatically loading any required segments. Concurrently, 
it allocates memory for file buffers, and CALLed RS/COBOL and Assembly 
Language subprograms. Upon completion appropriate messages are 
displayed and control is returned to TRSDOS. 



2.2 Device Assignments 

All communication between Runtime and the User is through the system 
console. During operation the Runtime will require one or more of the 
following devices: 

Console (*D0) Runtime command input, Interactive Debug 
command input, and Runtime messages. 

Console (*D0) ACCEPT and DISPLAY, and Interactive Debug 
display. 

Printer (*PR) PRINT output, if required 

NOTE: For direct printer output, the device 
name "PRINTER" must be specified in 
the SELECT statement; i.e., 

SELECT filename, ASSIGN to PRINT, "PRINTER". 
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2.3 Executing the Compiled Program 

To execute a compiled RS/COBOL object program, issue the following 
command to TRSDOS: 



where: 
f ilespec 



RUNCOBOL f ilespec (options) comment 



is the specification of the compiled RS/COBOL object file to 
be executed of the form: 



options 



filename. ext .password :d 



'filename' is required. 

'd:' is an optional drive specification. When omitted the 
system does an automatic search, starting with drive 0. 

'/ext' is an optional extension. When omitted the default 
'/COB' is used. 

'.password* is an optional password. Note: If the file was 
created with a nonblank password, '.password' becomes a 
required field. 

':d' is an optional drive specification. When ommitted, the 
system does a search beginning with drive 0. 



allows the user to specify Runtime options. Each option 

must be specified as shown below, separated by spaces. The 

left and right parenthesis are required if any comments are 
present . 

When no options are specified, the Runtime will execute the 
User's program without Interactive Debug, with all switches 
set to 0, using all of available memory. 



2.3.1 Runtime Options 



A=N 



D 



'A=N' indicates the printer attached does not have automatic 
line feed after carriage return capability. RS/COBOL will 
terminate each line with both a carriage return and a line 
feed . 

'D* invokes the RS/COBOL Interactive Debug package. See 
RS/COBOL Interactive Debug chapter for operating 
instructions . 
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S^nn. . n 



T=hhhh 



The default is not to invoke Interactive Debug. 



'S' sets (or resets) the value of SWITCHES in the RS/COBOL 

program. 

Each ' n' is a switch value, for off, 1 for on, numbered 1 
to 8, left to right. Trailing zeroes need not be specified. 

The default is to set all switches off (0). 



*T' sets the top of available memory to a value different 
from the highest available address. This is used to protect 

assembly language user subroutines, all of which must be 
created to load above the hexadecimal address 'hhhh'. 

The default is to use all available memory. 



2.3.2 Runtime Messages 

Messages which report the Runtime's status, or its ability to execute 
the RS/COBOL program, are reported on the system console as they are 

detected. 

TRS-80 Model 4 COBOL Runtime (RM/COBOL version W.RR.PP) Copyright 
1983 By Tandy Corporation. Licensed from Ryan-McFarland Corporation. 

Indicates that the Runtime has been loaded and has begun to 
execute the specified program. 'version W.RR.PP' identifies the 
version (V) and revision (R) and patch (P) level of the Runtime. 

COBOL STOP RUN AT xxyyyy IN nnnnnn 

This is the normal termination message of a program. 

'xxyyyy' identifies the overlay (xx) and statement address (yyyy) 
where the program terminated. 'nnnnnn' are the first six 
characters of the PROGRAM-ID. 

If Debug was invoked on the command line, an 'S' Debug command 
may be used to cause Debug to exit to the operating system. 
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COBOL STOP literal AT xxyyyy IN nnnnnn CONTINUE (Y/N)? 

This message indicates that a STOP 'literal' statement has been 
encountered. 'xxyyyy' identifies the overlay (xx) and statement 
address (yyyy) where the program terminated. 'nnnnnn' are the 
first six characters of the PROGRAM-ID. 

Responding with a 'Y' will be the equivalent of a "pause" 
statement, returning control to the next RS/COBOL statement. 

An 'N' response will cause all program files to be closed and 
control will be returned to the operating system. 



2.3,3 Program Termination 

When the RS /COBOL program terminates, an appropriate message will be 
displayed on the user console. 

In addition, the HL register pair will contain a return code set to 
indicate the result of the program's execution. Return codes and 
their definitions are: 

normal termination 

1-127 User defined (STOP RUN) 

-1 10 error 

-2 cancelled (BREAK) 

-3 runtime error 

-4 program load fail 

-5 Runtime command line usage error 



2.3.4 Examples 

RUNCOBOL PAYROLL (S=1011) 

locates, loads, and executes the compiled RS/COBOL program 
PAYROLL/COB; and sets the value of SWITCHES 1, 3, and 4 'on', all 
others 'off ' . 

RUNCOBOL M0RTGAGE/TST:2 (D) 

loads the compiled RS/COBOL program MORTGAGE/TST from drive 2 
along with the Interactive Debug package. Control is passed 
directly to Debug. 
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2.4 Runtime Diagnostics 

Diagnostic messages are displayed on the console if an internal error 
occurs, or if an I/O error occurs that was not, or could not, be 
processed by an appropriate USE procedure. 

If Debug was invoked, Debug will be entered to allow examination of 
program data values; otherwise, control will return to TRSDOS 

RUNTIME ERROR, NO: nnnnn; (filename) - message 

Indicates an internal error condition has occurred which prevents 
continued execution. The value of 'nnnn' identifies the 
condition which caused the error. 

If the error was associated with a file, the filename is printed. 
The message associated with the error is also output. 

COBOL error AT xxyyyy IN nnnnnn 

Indicates an internal error condition has occurred, where 
'error' identifies the error condition. 'xxyyyy' identifies 
the overlay (xx) and statement address (yyyy) where the 
program terminated. 'nnnnnn' are the first six characters 
of the PROGRAM- ID. 

COBOL filename 10 ERROR = cc AT xxyyyy IN nnnnnn 

Identifies that an abnormal I/O condition, 'cc' has caused 
the program to be aborted. 'xxyyyy' identifies the overlay 
(xx) and statement address (yyyy) where the program 
terminated. 'nnnnnn' are the first 6 characters of the 
PROGRAM-ID. 

The I/O error ' cc ' has a different meaning depending on 
whether the file's organization is sequential, relative or 
indexed. 

Sequential Files: 

10 AT END. 

The sequential READ statement was unsuccessfully 
executed as a result of an attempt to read a record when 
no next logical record exists in the file. 
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30 PERMANENT ERROR. 

The input-output statement was unsuccessfully executed 
as the result of an input-output error, such as data 
check parity error, or transmission error. May also 
indicate attempted execution of an instruction not 
implemented in the Runtime (REWRITE to a variable length 
record (VLR) file; CLOSE REEL). 

34 PERMANENT ERROR BOUNDARY VIOLATION. 

The input-output statement was unsuccessfully executed 
as the result of a boundary violation for a sequential 
file. 

90 INVALID OPERATION. 

An attempt has been made to execute a READ, WRITE, or 
REWRITE statement that conflicts with the current open 
mode or a REWRITE statement was not preceded by a 
successful READ statement. 

91 FILE NOT OPENED. 

An attempt has been made to execute a DELETE, READ, 
START, UNLOCK, WRITE, REWRITE or CLOSE statement on a 
file which is not currently open. 

92 FILE NOT CLOSED. 

An attempt has been made to execute an OPEN statement on 
a file which is currently open. 

93 FILE NOT AVAILABLE. 

An attempt has been made to execute an OPEN statement 
for a file closed with LOCK. 

94 INVALID OPEN. 

An attempt has been made to execute an OPEN statement 
for a file with no external correspondence or a file 
having inconsistent parameters. 

95 INVALID DEVICE. 

An attempt has been made to execute a CLOSE REEL 
statement, or to execute an OPEN statement for a file 
which is assigned to a device in conflict with the 
externally assigned device. Valid combinations are: 

Program Assignment External Assignment 

RANDOM Disk 

INPUT Disk 

OUTPUT Disk 

PRINT Disk, line printer 

INPUT-OUTPUT Disk 
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96 UNDEFINED CURRENT RECORD POINTER STATUS. 

An attempt has been made to execute a READ statement 
after the occurrence of an unsuccessful READ statement 
without an intervening successful CLOSE and OPEN. 

97 INVALID RECORD LENGTH. 

An attempt has been made to execute a REWRITE statement 
when the new record length is different from that of the 
record to be rewritten, or to OPEN a file that was 
defined with a maximum record length different from the 
externally defined maximum record length, or to execute 
a WRITE statement that specifies a record with a length 
smaller than the minimum or larger than the maximum 
record size. 
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Relative and Indexed Files: 

02 SUCCESSFUL OPERATION BUT KEY HAS DUPLICATE. 

For a read operation, it indicates that the next record 
associated with the current key of reference has the 
same key value. For a write or rewrite operation, it 
indicates that the record just written created a 
duplicate key value for at least one alternate key for 
which duplicates are allowed. 

10 AT END. 

The Format 1 READ statement was unsuccessfully executed 
as a result of an attempt to read a record when no next 
logical record exists in the file. 

21 SEQUENCE ERROR FOR A SEQUENTIALLY ACCESSED INDEXED FILE. 
The ascending sequence requirement of successive record 
key values has been violated or the record key value has 
been changed by the COBOL program between the successful 
execution of a READ statement and the execution of the 
next REWRITE statement for that file. 

22 DUPLICATE KEY VALUE. 

An attempt has been made to WRITE a record that would 
create a duplicate key on a file that does not allow 
duplicates . 

23 NO RECORD FOUND. 

An attempt has been made to access a record, identified 
by a key, and that record does not exist in the file. 

24 BOUNDARY VIOLATION. 

An attempt has been made to WRITE beyond the 
externally-defined boundaries of a file. 

30 PERMANENT ERROR. 

The input-output statement was unsuccessfully executed 
as the result of an input-output error, such as data 
check, parity error, or transmission error. 

90 INVALID OPERATION. 

An attempt has been made to execute a DELETE, READ, 
REWRITE, START, or WRITE statement which conflicts with 
the current open mode of the file or a sequential access 
DELETE or REWRITE statement not preceded by a successful 
read statement. 

91 FILE NOT OPENED. 

An attempt has been made to execute a CLOSE, DELETE, 
READ, REWRITE, START, UNLOCK, or WRITE statement on a 
file which is not in an open mode. 

92 FILE NOT CLOSED. 

An attempt has been made to execute an OPEN statement on 
a file that is currently open. 
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93 FILE NOT AVAILABLE. 

An attempt has been made to execute an OPEN statement on 
a file closed with LOCK. 

94 INVALID OPEN. 

An attempt has been made to execute an OPEN statement 
for a file with no external correspondence or a file 
having inconsistent parameters. 

95 INVALID DEVICE. 

An attempt has been made to execute an OPEN statement on 
a file whose device description conflicts with the 
externally assigned device. The device must be RANDOM 
and the external correspondence must be a disk. 

96 UNDEFINED CURRENT RECORD POINTER. 

An attempt has been made to execute a Format 1 READ 
statement when the current record pointer has an 
undefined state. This can occur only as the result of a 
preceding unsuccessful READ or START statement. 

97 INVALID RECORD LENGTH. 

An attempt has been made to execute a REWRITE statement 
and the new record length is different from that of the 
record to be rewritten, or to OPEN a file that was 
defined with a maximum record length different from the 
externally defined maximum record length, or to execute 
a WRITE statement that specifies a record with a length 
smaller than the minimum or larger than the maximum 
record size. 

98 INVALID INDEX. 

An input-output statement on an indexed organization 
file was unsuccessful as a result of invalid data in the 
index. This can result if the externally assigned file 
is not an index organization file or if an undetected 
input-output error has occurred. 
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2.5 File System Considerations 

Three types of files are supported by RS/COBOL: sequential, relative 
(random), and indexed sequential. These files exist on the disk as 
standard TRSDOS disk files, consisting of either fixed length records 
(FLR), or internally formated variable length records (VLRs). While 
the user will not typically need this information to execute RS/COBOL 
programs, he/she is referred to the Technical Information Section of 
the TRS-80 Model IV Disk Operating System Reference Manual if further 
information is desired. 

Files are specified in the program's SELECT statement in a manner 
consistent with the TRSDOS filespec, of the form: 



where 



f ilename/ext .password:d 

'filename' is required. 

'/ext' is an optional name-extension. 

'.password' is an optional password. Note: If the file was 
created with a nonblank password, '.password' becomes a 
required field. 

*:d' is an optional drive specification. When omitted the 
system does an automatic search, starting with drive 0. 



2.5.1 RS/COBOL Sequential Files 

RS/COBOL sequential files consist of a serially accessible set of 
'logical' records. These 'logical' records may exist on the disk as 
either variable length (VLR) or fixed length (FLR) records. 

RS/COBOL sequential files that are 'created* by an RS/COBOL program 
(i.e., do not already exist), are created as variable length (VLR) 
records. Each 'logical' record within the file can have a maximum 
length of 255 bytes. 

RS/COBOL sequential files that were 'created' by other than an 
RS/COBOL program can have either fixed length (FLR) or variable length 
(VLR) records. In this case, the RS/COBOL Runtime will process the 
records as presented. Each 'logical' record can have a maximum length 
of 255 bytes (VLR) or 254 bytes (FLR). 

NOTE: The REWRITE statement is not valid for variable length records 
(VLR's), and will generate an appropriate error message if executed. 
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2,5.2 KM/COBOL Relative Files 



RS/COBOL relative files are addressable randomly by 'logical' record 
number. These files exist on the disk as fixed length (FLR) records. 

RS/COBOL relative file 'logical' records are internally formatted, and 

can be created and/or accessed only by RS/COBOL programs. Each 
'logical' record can have a maximum length of 254 bytes. 

RS/COBOL relative files are dynamically allocated or extended as 
required by TRSDOS* If the user desires to preallocate the file, 
allocate it by using the TRSDOS CREATE program, with options shown 
below: 

(fixed length records) 



LRL 



NRECS 



254 



(record length - 254 bytes) 
(record length +2) * (max # records) 
256 



2.5.3 RS/COBOL Indexed Files 

RS/COBOL indexed files are created and maintained by the RS/COBOL 
Runtime; implemented on the disk using TRSDOS fixed length (FLR) 
records . 

RS/COBOL indexed files are internally formatted, and can be created 
and/or accessed only by RS/COBOL programs. Each 'logical' record can 
have a maximum length of 2048 bytes. 

Indexed files contain an index structure for each key specified 
interspersed with the data records. The use of ALTERNATE KEYS can 
cause a geometric increase in the time required to create the file; 
however, access time will be relatively constant throughout the file. 
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RS/COBOL indexed files are dynamically allocated or extended as 
required by TRSDOS. If the user desires to preallocate the file, 
allocate it using the TRSDOS CREATE program with options shown below: 

Variables: 

R = maximum number of records 

S = maximum size of records (in bytes) 

D = number of keys that allow duplicates 

Kl = size of first key 

K2 = size of second key 

Kn = size of nth key 

Subtotals - A = Int ( ( Int ( (S+33 )/32*R/8)+l ) 

B = Int ( (R*D/8)+l) 

Tl = Int ((R*2/lnt(252/(Kl+8)))+l) 

Tn = Int ((R*2/lnt(252/(Kn+8)))+l) 

NOTE: 

Best case usage: No. of recs = A+(B/3 )+( (T1+T2+. . .+Tn)/2 ) 

Worst case usage :No. of recs = A+B+T1+T2+. . .+Tn 

Int (A) is the integer part of A before the decimal point (eg: Int 
(3.1416)=3. 

Note: This calculation provides an approximation for 
preallocating the file. TRSDOS will automatically create and/or 
extend the file as necessary to the physical limits of the disk. 
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2.5.4 RS /COBOL Label Processing 

The RS/COBOL language allows the specification of the existence, and 
processing, of label records on file type devices. 

TRSDOS provides automatic maintenance and validation of file 
specifications by name and file type. No additional label processing 
is performed unique to RS/COBOL programs or files. 

References to label processing in the file description entry (FD), 
OPEN statement, and CLOSE statement, are checked for correct syntax by 
the compiler. They are largely ignored by the Runtime except that 
appropriate error codes will be returned, and any applicable USE 
procedures will be executed. 
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2*6 Routine Memory Usage 

The TRSDOS Operating System occupies lower memory from location 0000H 
to 25FFH. The RS/COBOL Runtime is loaded starting at 2600H. The 

remaining memory is allocated as follows: 

The main RS/COBOL object program is loaded immediately behind the 
RS/COBOL Runtime. Space for RS/COBOL overlays (SECTIONS greater 
than 50) are included in this area. 

Additional RS/COBOL programs are loaded behind this main program 
as they are CALLed (See the CALL statement below). 

File buffers are dynamically allocated in the working storage 
from high memory downward, when OPENed, and deallocated (space 

recovered for use by other files) when CLOSed* 

Assembly Language programs are loaded in high memory at the 
address they were assigned at 'DUMP' times (see Runtime ' T=hhhh' 
option) . 
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CHAPTER 3 
INTERACTIVE DEBUG 

3.1 Debug Overview 

RS /COBOL Interactive Debug is invoked when the user specifies the 'D s 
option on the RUNCOBOL statement. Debug is then given control and 
supervises the execution of the user's program. 

Interactive Debug is loaded directly behind RS/COBOL Runtime, 
requiring approximately 1200 bytes. 



3.2 User Interaction and Display 

All Debug commands, and all resultant displays, are through the system 
console. 

Debug will request command input by a prompt of the form 
nnnnnn xxyyyy 

where 'nnnnnn' are the first 6 characters of PROGRAM-ID, * xx ' is the 
overlay number, and 'yyyy' is the hexadecimal location within the 
specified overlay that will be executed next. 

The values of * xx ' and 'yyyy 1 are taken directly from the Debug column 
in the source listing for program 'nnnnnn'. 



3.3 Debug Commands 

All commands are specified by a single character, optionally followed 
by one or more arguments. Optional fields are shown surrounded by 
brackets; the brackets are never entered. All numeric arguments are 
in hexadecimal unless otherwise noted. 

Invalid commands will be rejected with 'ERROR' displayed? corrected 
input will be requested with a reprompt. 

A[ xx ]yyyy [ , nnnnnn] Address stop. 

Executes object instructions until overlay number ' xx ' and 
location 'yyyy' in program nnnnnn is to be executed. Debug will 
regain control immediately prior to the execution of the 
specified COBOL sentence, and request further command input. 
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If 'xx' is specified, 'yyyy' must be fully four hexadecimal 
digits? if ' xx ' is not specified, then leading zeros are not 
required for 'yyyy'. If ' nnnnnn ' is omitted, it is assumed to be 
the first six characters of the program-id of the currently- 
executing program. 

S[n] Single step sentence. 

Execute 'n' RS/COBOL sentences and return to the debug monitor. 

The decimal argument 'n' specifies the number of RS /COBOL 
sentences to be executed before returning the Debug. 

Dxxxx,yyyy[, tttt] Dump by type. 

Display the RS/COBOL data item starting at hexadecimal location 
'xxxx' of decimal length 'yyyy' and type 'tttt*. The values for 
'xxxx', 'yyyy', and * tttt' are directly from the first three 
columns of the allocation map. 'tttt' may be one of the 
following: 

NSU NPS 

NSS ABS 

NCU ANS 

NCS GRP 

NBS ANSE 

NSE HEX (hexadecimal) 

Dump Display has the format: 

xxxx tttt dddd.... 

where dddd = data in the specified format 

Note: Only items in the currently executing program can be 
displayed. This does not include linkage items. 

Q Quit Execution. 

Terminate Debug and force an immediate STOP RUN. Enter ' S' to 
return to TRSDOS. 

E Exit 

Exit the Debugger. Continue normal execution as if the debugger 
had not been invoked on the command line. 
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CHAPTER 4 
SYSTEM CONSIDERATIONS 

4.1 The ACCEPT and DISPLAY Statements 

The ACCEPT and DISPLAY statements support the transfer of data between 
the console and the program's data area. These statements allow the 
specification of general phrases which may not be supported on every 
CRT. 

Phrases which are not supported will compile correctly, but will be 
ignored at runtime, causing no operation to take place. The phrases 
which are not supported under the Tandy Model IV are: 



ACCEPT HIGH, LOW, BLINK. 

DISPLAY HIGH, LOW, BLINK. 

The ON EXCEPTION phrase of the ACCEPT statement is executed when an 
invalid character is entered. Invalid characters include the valid 
control characters (CNTRL/n) below 020H, and non-ASCII characters 
above and including 080H. 

When an invalid character is entered, its ASCII equivalent is placed 
in the specified data-name and the ON EXCEPTION phrase is executed. 
To determine which control character was entered, define the data-name 
as USAGE COMPUTATIONAL-1 and compare for its ASCII value. 

If an ON-EXCEPTION phrase is given and no exception occurs, the 
character that terminated the accept (or binary if no terminator) 
will be placed in the data-name. 

Certain keys affect the operation of the ACCEPT statement, including: 

<BACK-ARROW> Erases the current character and moves the 
cursor back one position. 

<SHIFT-BACKARROW> Backspace to the beginning of the field, 
erasing all characters in the field. 
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4.2 The CALL Statement 

When 'CALLed' the first time, RS /COBOL and assembly language programs 
are loaded by the Runtime and entered at their initial location. 
These 'called' programs remain in memory as long as the 'calling' 
program has not EXITed and been replaced by another program. 
Therefore, subsequent CALLs from the 'calling' program will enter the 
'called' program directly, without requiring the 'called' program to 
be reloaded. 

Once the 'calling' program has EXITed and has been replaced by another 
program, all related 'called' programs are discarded and will be 
reloaded if subsequently CALLed by any program, including the previous 
'calling' program. Regardless of the sequence of 'called* and 
'calling' programs, all related files not explicitly closed are forced 
closed by the interface upon EXIT from a given 'called' program. 

COBOL programs that are to be CALLed must have been previously 
compiled. The default filename-extension for a program name in a CALL 
statement is '/COB'. A compiled COBOL program will have the required 
extension. If the extension used is not '/COB' , then it must be 
specified in the CALL statement. 

Assembly language programs that are to be CALLed must be in TRSDOS 
LOAD command format as created by DUMP, with a filename extension 
other than '/COB*. Assembly language programs must reside in high 
memory, and the ' T=nnnn ' option must be specified on the Runtime 
command line to protect the memory required by the sub-program. The 
user is responsible for ensuring that the assembler programs do not 
interfere with each other. 

Assembly language sub-programs are loaded and reused while the 
'calling' program resides in memory. If the RS/COBOL 'calling* 
program is reloaded in memory, then the assembly sub-program will 
again be reloaded when it is called. 

At entry time to assembly language routine register IX points to the 
parameter list defined by the USING clause of the CALL statement. The 
first word on the list contains the number of bytes in the list. 
Subsequent words are addresses of the USING arguments: e.g., if the 
length word specifies 6 bytes, there are 2 addresses following the 
length word. For example: 
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(IX) => DW Argument List Length (n * 2) + 2 
DW USING Argument 1 
DW USING Argument 2 

DW USING Argument n 

The format of each argument depends on its dataname PICTURE 
definition; see the RS/COBOL Language Manual, 'the PICTURE Clause'. 

At exit time from an assembler routine, register A may be set non-zero 
to request a STOP RUN. (See the RS/COBOL Runtime, Program 
Termination) . 
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4.3 The COPY Statement 

The COPY statement provides the facility to copy (include) RS/COBOL 
source text from a user-specified file into the source program. The 
complete file is copied into the program, without change, at the 
location of the COPY statement. 

The file to be copied is identified in the RS/COBOL program by the 
statement 

COPY filename 
or 

COPY "f ilename/ext .password:d. 
where: 

'filename' is required. 

'/ext' is an optional name-extension. When omitted the 
default ' /CBL' is used. 

'.password' is an optional password. Note: If the file was 
created with a nonblank password, '.password' becomes a 
required field. 

':d' is an optional drive specification. When omitted the 
system does an automatic search, starting with drive 0. 



A filename consisting only of letters and numbers (first character 
must be letter) can be written without surrounding quotes. All other 
forms must be surrounded by quotes. 

Examples : 

IDENTIFICATION DIVISION. 

COPY STDID. 
ENVIRONMENT DIVISION. 

COPY " STDENVI R/TST " . 
DATA DIVISION. 

COPY " STDDATA/CBL " . 
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4.4 The WRITR.»» ADVANCING ZERO. . .Statement 

The sequential WRITE statement allows control of the vertical 
positioning of each line on the printed page with the ADVANCING 
phrase. 

The ... ADVANCING ZERO LINE(s) ... phrase allows overprinting on 
those print devices which support this feature. In all cases, the 
phrase will compile correctly, but may operate as though ...ADVANCING 
1 LINE... was specified. 

Standard Radio Shack Line Printers automatically advance after each 
line is printed. Therefore, the ...ADVANCING ZERO LINES... phrase 
will execute as ...ADVANCING 1 LINE. The Compiler and Runtime default 
to standard Radio Shack Line Printer operation. 

4.5 The STOP RUN numeric Statement 

The RS/COBOL STOP RUN statement has an optional numeric operand which 
will be returned to the Operating System in the HL register as the 
Return Code. This operand, if present, should be in the range 1-127. 
Return codes of and 128-255 are reserved for Runtime usage. 

When no value is specified, a value of (normal termination) will be 
returned to the Operating System. 
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CHAPTER 5 
INSTALLATION PROCEDURES 



5.1 Installing RS /COBOL 

Installation of RS/COBOL requires only that the object modules be 
copied from the Software Distribution Media to the appropriate user 
diskette. NOTE: *nn' indicates the current release level, i.e., 
release 01.06 will be '16'. 

The modules required to compile RS/COBOL programs are: 

RSCOBOL 
RSCBL2nn/OBJ 
RSCBL3nn/OBJ 
RSCBL4nn/0BJ 



The modules required to execute compiled RS/COBOL programs are: 

RUNCOBOL/CMD 
RSCBLDnn/OBJ 

As with all Software Distribution Media, the user should save it in a 
secure location in case re-creation is required. 
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APPENDIX A 

C1H1JTP CVCCT/W 



RS/COEOL (RM/COBOL V0i.06.0C) for TRS-80 Model 4 10/24/83 19535:30 
SOU R CE F I LE : C AL C X M PL / CBL O PT I ON L I ST : P 

LINE DEBUG PG/LN A. .. B. ..........-............--.-••---•----•-•••• • 

1 IDENTIFICATION DIVISION. 

2 PROGRAM-ID. 

3 C A L C U L A 7 R „ 

4 E N V I R N M E N T D I V I S 1 N . 

5 CON F I (5 U R A T I O N S E C T I O N . 

6 SOURCE-COMPUTER,, RMC„ 

7 O B J E C "I" - C O M P U T E R „ R M C .. 

8 DATA DIVISION. 

9 W O R KING ~ S 1" R A G E S E C "I" 1 N . 
77 RESULT PICTURE S9 < 9 ) V9 ( 9 ) VALUE ZEi 
77 OPERAND- 1 P I CTURE S9 < 9 ) V9 < 9 ) „ 
77 OPERAND-2 P I CTURE S9 i 9 ) V9 ( 9 ) „ 
77 WAIT --CHAR PICTURE X. 
01 GREETING, 

02 FILLER PICTURE X< IS) 

VALUE "CALCULATOR PROGRAM". 
1 P E R A T 1 N - M E S S A G E . 



10 
I .1. 



15 
16 
17 
18 
1 9 
20 
21 



24 



28 

29 
30 

31 

7 ' 






I CTURE X(37> 

/ O U R O P E R A T 1 N », ■+• » - , * » / ) 

I CTURE X(2)„ 



02 FILLER 

VALUE " CHOOSE V 
01 OPERATOR 
1 R E S U L "I" ••- M E S S A G E „ 

2 F I L L E R P I C T U R E X ( 1 2 ) 

VALUE "RESULT IS = " . 
02 RES U t... T - E D I T E D P I C T U R E - < 9 ) 9 . 9 ( 9 ) . 
02 FILLER PIC XC4) VALUE SPACES. 

02 OVERFLOW FIELD PIC X(8) VALUE SPACES. 

01 WAIT -MESS AGE. 

2 F I L i... E R P I C T U R E X C 3 6 ) 

VALUE "HIT NEWLINE TO CONTINUE (0 TO QUI 
1 O P E R A N D - 1 ~ M E S S A G EI » 

02 FILLER PICTURE X<12> 

V A L U E " P E R A N D - 1 = " . 
1 OPERAND-2-MESSAGE . 

2 F I L L E R P I C "!" U R E X ( 1 2 ) 

VALUE "OPERAND-2 = ". 



')" ) " . 
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RS/COBOL (RM/COBOL V01.06.0C) for TRS-S0 Model 4 10/24/83 19s35:30 
SOURCE FILES CALCXMPL/CBL OPTION LIST: p 



Page 



LINE DEBUG PG/LN 



36 




37 




38 


>0000 


39 


>0000 


40 


>0000 


41 


>0004 


42 


>0004 


43 


>000C 


44 


> 13014 


45 


>001C 


46 


>0024 


47 


>002C 


48 


>0034 


49 


>003C 


50 


>003E 


51 


>003E 


52 


>0042 


53 


>0046 


54 


>004A 


55 


>0050 


56 


>0050 


57 


>0054 


58 


>005C 


59 


>0064 


60 


>0066 


61 


>0066 


62 


>006C 


63 




64 


>0078 


65 


>007C 


66 


>0084 


67 


>0088 


68 




69 


>0094 


70 


>0098 


7 .1. 


>00A2 


72 


>00A2 


73 


>00A6 


74 


>00A6 



/ EJECT- 
PROCEDURE DIVISION, 
RESIDENT SECTION 1. 
NOT-START. 

GO TO DISPLAY-GREETING. 
RE-TRY. 

DISPLAY OPERATION-MESSAGE, LINE 2, ERASE,, 
ACCEPT OPERATOR, POSITION 0, PROMPT, ECHO, 



IF OPERATOR EQUAL " + 
IF OPERATOR EQUAL 
IF OPERATOR EQUAL "* 
IF OPERATOR EQUAL »' / 
IF OPERATOR EQUAL "Q 
GO TO RE-TRY. 
DISPLAY-RESULT. 

MOVE RESULT TO RESULT EDITED. 

D I SPLAY RESULT MESSAGE „ 

MOVE ZERO TO RESULT., 

MOVE SPACES TO OVERFLOW-FIELD 

WAIT-ENTRY. 

D I SPLAY WA I T-MESSAGE . 

ACCEPT WAIT-CHAR, POSITION 0, 



GO TO ADDITION. 

GO TO SUBTRACTION. 

GO TO MULTIPLICATION. 

GO TO DI VI -SI ON. 

GO TO END- RUN. 



PROMPT, ECHO 



IF WAIT-CHAR EQUAL "Q" GO TO END- RUN. 

GO TO RE-TRY. 
GET-OPERANDS. 

D I S PLAY PE RAND- 1 -MESSAGE , L I NE 4 „ 

ACCEPT OPEEAND-1, LINE 4, POSITION 13, SIZE 10, 
PROMPT, CONVERT. 

MOVE OPE RAND- 1 TO RESULT-EDITED. 

DISPLAY RESULT-EDITED, LINE 4, POSITION 13. 

D I SPLAY OPERAND-2-MESSAGE . 

ACCEPT OPERAND-2 , LINE 5, POSITION 13, SIZE 10, 
PROMPT, CONVERT. 

MOVE OPERAND-2 TO RESULT-EDITED. 

DISPLAY RESULT-EDITED, LINE 5, POSITION 13. 
END- RUN. 

EXIT PROGRAM. 
STOP- RUN. 

STOP RUN. 
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Page 



LIME DEBUG PG/L..N 



75 
76 

77 
78 
79 
80 
8 .1. 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 

98 
99! 

100: 

1 1 : 

102: 
103: 

104 



=•0,1. 00 A A 
=•01 00 A A 
=•0.1. 00 A A 
> 0.1. 00 AC 

> 01 BOB A 

> 0200 A A 
>02B0AA 
> 0.2 00 A A 
>0200AC 

>0200BA 
>0300AA 
> 0300 A A 
>0300AA 
> 0300 AC 

>0300BA 
> 04 00 A A 
> 0400 A A 
>0400AA 
> 0400 AC 

>0400BC 
> 05 00 A A 
>0500AA 
>0500AA 
>050BAE 



EJE' "i 
VE RL AY-ADD I T I ON SECT I ON 5 1 . 
ADDITION,, 

P E R E R M G E T •■••■ P E R A N D S „ 

ADD OPERAND 1 OPE RAND --2 GIVING RESULT 

ON SIZE ERROR MOVE "OVERFLOW" TO OVERFLOW-FIELD. 
G O T O D 1 S P L A Y ■••- R E S U L T . 
OVERLAY-SUBTRACTION SECTION 52. 
SUBTRACTION,, 

PERFORM GET-OPERANDS . 

SUBTRACT 0PERAND--2 FROM OPERAND 1 GIVING RESULT 

ON SIZE ERROR MOVE "OVERFLOW" TO OVERFLOW-FIELD. 
GO TO DISPLAY-RESULT. 
OVERLAY-MULT 1 PL I CAT I ON SECT I ON 53 . 
MULTIPLICATION,. 

PERFORM GET OPERANDS „ 

MULTIPLY OPERAND- 1 BY OPE RAND- 2 GIVING RESULT 

ON SIZE ERROR MOVE "OVERFLOW" TO OVERFLOW-FIELD. 
GO TO DISPLAY-RESULT. 
OVERLAY-DIVISION SECTION 54 . 
DI VI -SI ON,, 

PERFORM GET-OPERANDS „ 

DIVIDE OPERAND-1 BY OPERAND-2 GIVING RESULT ROUNDED 
ON SIZE ERROR MOVE "OVERFLOW" TO OVERFLOW-FIELD. 
GO TO D I S PLAY- RESUL T „ 
OVE RL. A Y-D 1 SPL A Y-G REET I NG SE CT I ON 98 . 
DISPLAY-GREETING,, 

DISPLAY GREETING. 
GO TO WAIT-ENTRY,, 
END PROGRAM. 
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ADDRESS SIZE DEBUG ORDER TYPE 



NAME 



> 0004 
>001S 
>002C 

>0040 

>0042 

>00S4 

>007A 

>007C 
>0088 
>00A0 

>00A8 

>00CC 

>00D8 



19 NSS NUMERIC SIGNED 

19 NSS NUMERIC SIGNED 

19 NSS NUMERIC SIGNED 

1 ANS ALPHANUMERIC 
IS GRP GROUP 

37 GRP GROUP 

2 ANS ALPHANUMERIC 

44 GRP GROUP 

20 NSE NUMERIC EDITED 
S ANS ALPHANUMERIC 

36 GRP GROUP 

12 GRP GROUP 

12 GRP GROUP 



RESULT 

OPERAMD-1 

OPERAND-2 

WAIT -CHAR 

GREETING 

OPERA T 1 N ••- M E S S A G E 

OPERATOR 

RESULT-MESSAGE 
RESULT-EDITED 
OVERFLOW-FIELD 

WAIT-MESSAGE 

OPE RAND- 1 -MESSAGE 

O P E R A N D - 2 - M E S S A G E 



READ ONLY BYTE SIZE = >01C2 

READ/WRITE BYTE SIZE = >00EC 

OVERLAY SEGMENT BYTE SIZE = >002E 

TOTAL BYTE SIZE = >02DC 

ERRORS 

WARNINGS 



TRS-BO R MODEL 4 



Using 
and Edit; 
Fil 



to Create 
Source 



TM 
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The COBOL EDITOR (CEDIT) 

The COBOL Editor allows you to enter and edit a COBOL 
language source program. You can save this program on disk 
as a source file to be compiled into COBOL object code. 

This section describes the use of the Editor itself. 



LOADING THE EDITOR 

This command, typed in the TRSDOS Ready mode: 

CEDIT source filespec 

loads the Editor and then loads the specified source 
filespec into the Editor. The source filespec is 
optional. For example: 

CEDIT <ENTER> 

causes the Editor to load and display a similar heading: 

TRS-80 Model 4 Text Editor Version v.r.p. 
Copyright (c) 1982, 83 Tandy Corp. 

( v.r.p. is the version, release and patch numbers.) 

CEDIT CALCXMPL <ENTER> 

causes the Editor to load, display the above heading, then 
load a source file named CALCXMPL/CBL. 

If the source filespec does not contain an extension, the 
Editor appends /CBL to it. 

The Editor loads into all of the memory above TRSDOS. It 
reserves approximately the top 33K bytes in a Model III and 
the top 40K bytes in a Model 4 as an "edit buffer" for 
inserting your programs. However, if you have also loaded 
one of the High Memory TRSDOS utilities the edit buffer will 
be smaller. 
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USING THE EDITOR 



The following pages define the three modes in which you can 
use the Editor: 

. the command mode 
. the insert mode 
. the line edit mode 



THE COMMAND MODE 

When you first load the Editor, it is in the command mode. 
While in this mode, you can use any of the special keys 
listed in Table 1 or the commands listed in Table 2. 

All commands except I and E return to the command mode after 
executing. To return to the command mode from I (insert 
mode) or E (line edit mode), press <BREAK> or <ENTER> 
respectively. 

When you enter an Editor command, it creates a blank "work 

line" and points to the line just beneath it. To redisplay 

the screen after an error message and delete the work line, 
use the N command. 



Sample Use 

For an example of using the command mode, use the I command 
to insert this program: 

*THIS IS THE FIRST LINE <ENTER> 
*THIS IS THE SECOND <ENTER> 
*AND HERE IS ANOTHER < ENTER > 
*AND ANOTHER <ENTER> 
<right arrow> END <ENTER> 

Press <BREAK> to return to the command mode. 

You can move the cursor and rearrange the lines of the 
program. For example type the following Editor command: 
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the cursor moves to the top of the text. Type B to move it 
to the bottom. Press <up arrow) and <down arrow) to move it 
to specific lines. 

Move the cursor to the third line and type: 

1 

The < appears to the left of the line. This specifies the 
beginning of a block. Move the cursor to the fourth line 
and type: 



The > appears to the left of the line. This specifies the 
last line in the block. Move the cursor up to the second 
line and type: 



which is the command. This copies the block between the 
first and second line. Move the cursor to the next to last 
line and type: 

D 

the delete command (executes without pressing <ENTER>). The 
last line is now deleted. 

To save this program on disk you can use the W command. 
Type (it does not matter which line the cursor is positioned 
at ) : 

W TEST <ENTER> 

This saves this program on disk as a file named TEST/CBL. 
You can exit the Editor by typing: 

Q < ENTER > 

the quit command. 

Q will exit the Editor without writing the text to disk. If 
you forgot to save the text first, type CEDIT * <ENTER> to 
re-enter the Editor. Your text will be retained. 
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TRS-SO 



® 



EDITOR 



Be sure you use the CEDIT * command immediately after you 
exit the Editor. It will not work predictably after you run 
a command which modifies memory. Also, be sure you type one 
blank space between CEDIT and the asterisk(*). 



Model 4 
Keys 

<down arrow) 



<up arrow> 



<CTRLXA> 



<CTRLXB> 



<•> 



#line<ENTER> 



Table 1 / CEDIT Command Mode Keys 



Description 



positions the cursor 
down one line (ignored 
if the cursor is not in 
the first column) 

positions the cursor 
up one line (ignored 
if the cursor is not in 
the first column) 



Model III 
Keys 

<down arrow) 



<up arrow) 



<SHIFT> 
positions the cursor to <down arrowXB) 
the top of the screen. 



positions the cursor to 
the bottom of the screen 
or to the first line after 
the last line of text. 



<SHIFT> 

<down arrowXO 



displays the current 
line sequence number. 
This number will change 
as you insert and delete 
xx nes . 

positions the cursor to 
the specified line 
sequence number and 
moves that line to the 
top of the screen. 



<•> 



#line<ENTER> 
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< BREAK > 


cancels any command 
being executed and 
returns to the command 
mode . 


< BREAK > 


<SHIFT> 




< SHI FT) 


<up arrow) 


cancels the current 
command line if you 
have not yet pressed 
< ENTER >. 


<up arrow) 



Table 2/ CEDIT Editor Commands 



Description of terms: 
current line 



the line where the cursor is currently positioned, 
del 



(stands for delimiter) One of the following characters 
which marks the beginning and ending of a string: 
• " #$%&'()*+,-./:;< = >? 

string 



one to 37 ASCII characters on the Model 4 and one to 
29 ASCII characters on the Model III. 



the source program or text currently in RAM. 

A < ENTER) 

Re-executes the last executed command. This command only 

works with the Editor Commands C, F, X, L and W. 

B 

Moves the cursor to the bottom of the text. 

C del stringl del string2 del occurrence 
<ENTER> 

Changes stringl to string2 for the number of 
occurrences you specify. Occurrences must range from 



1 to 255. The changes begin at the current line and 
are made only to the first occurrence on a given line. 
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If you omit occurrence , only the first occurrence of 
stringl is changed. You may specify occurrence with 
an asterisk, in which case the change is made to the 
first occurrence of stringl in all the remaining 
lines . 

For example: 

C/TEXT/FILE/3 <ENTER> 
changes the first 3 occurrences of TEXT to FILE. 

C?TEXT?FILE?* <ENTER> 
changes all occurrences of TEXT to FILE. (Change acts 
on only the first occurrence within a line.) 
After executing the command, the cursor positions 
itself at the last change or, at the top of the file if 
changes went through the whole file. 

D 

Deletes the current line or block of lines. To delete 
a block, position the cursor at the first line in the 
block and type <1>. Then position it at the last line 
and type the D command. (The block may be on 
several pages.) The cursor must be positioned on a 
line within the file. 

For example: 

MOVE FIELD-B TO FIELD -A. 
<1> ADD 1 TO FIELD-A. 

ADD 3 TO FIELD-A. 
<D> ADD 4 TO FIELD-A. 

SUBTRACT 1 FROM FIELD-B. 

deletes all but the following: 

MOVE FIELD-B TO FIELD-A. 
SUBTRACT 1 FROM FIELD-B. 

You can cancel a block deletion after pressing <1> but 
before typing D. To do this, press <3>. 

E 

Allows you to edit the current line using line edit 
mode subcommands. The line will appear in reverse 
video (Model 4 only). See the edit mode for a listing of 
subcommands . 
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F del string del occurrence < ENTER > 

Finds the specified occurrence of string. If you 
omit occurrence , finds the first occurrence of 
string. If you omit string, the last string specified 
is found. Occurrences must range from 1 to 255. For 
example: 

F/TEXT/2 <ENTER> 
finds the second occurrence of TEXT. 

F/TEXT/ < ENTER > 
finds the next occurrence of TEXT. 

F < ENTER > 
finds the next occurrence of the last specified string. 

F% % <ENTER> 
finds the next occurrence of five blank spaces. 
The Editor will search for only one occurrence of the 
string in each line. 



G <ENTER> 

Deletes all text from the current line to the end. 
You will first be prompted with: 

"Are you sure?" 
Type Y <ENTER> to delete; N <ENTER> to cancel. 

H <ENTER> 

Prints the entire text if entered as the first command 
or the specified block on the printer. To print a 
block, move the cursor to the first line of the block 
and type <1>. Move the cursor to the last line of the 
block and type <H>. For example: 

MOVE FIELD-B TO FIELD-A. 
<1> ADD 1 TO FIELD-A. 

ADD 3 TO FIELD-A. 
<H> ADD 4 TO FIELD-A. 

SUBTRACT 1 FROM FIELD-B. 

prints a block of ADD instructions. 

You can cancel a block printing after pressing <1> 
but before typing H. To do this, press <3>. 

Press <BREAK> to terminate printing. If the printer is 
off-line or goes off-line during printing, some characters 
may be lost. 
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I 

Enters the insert mode for inserting lines just 
before the current line. See "Insert Mode" for 
more information. 

J 

Displays current size of text and how much memory 
remains. Memory size does not include a small work 
area when the buffer is full, but the text size may 
reflect some of this work area. 

K <ENTER> 

Deletes ALL text. (Does not delete text from the 
disk file, only from the edit buffer. Before deleting 
your text, the Editor will ask you "Are you sure". 
Type Y <ENTER> to execute the command; N <ENTER> to not 

cacCUlS 1 L . 

L filespec $C <ENTER> 

Loads filespec into the Editor. $C is optional. 

If specified, the Editor chains the new filespec to 

the end of the text currently in memory. If not 

specified, the new filespec overlays the current text. 

For example: 

L TEST <ENTER> 

loads TEST/SRC into the Editor. 

L TEST $C <ENTER> 

chains TEST/SRC to the end of the text currently in 

memory . 

The Editor will load fixed length record (FLR) files with 
a record length of one. If the file is fixed length, 
each line must be ended with a carriage return. 
Note: When the Editor completes, the record length will 
be 25 6. 

M 

Moves the specified block just ahead of the current 

line. Use <1> and <2> to specify the block. 

The Editor displays a line count as it moves each line. 

For example: 

ADD FIELD-B TO FIELD-A. 

<1> MOVE FIELD-D TO SAVE-D. 

MOVE FIELD-H TO SAVE-H. 

MOVE FIELD-I TO SAVE- I. 
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<2> MOVE FIELD-B TO SAVE-B. 

ADD 8 TO FIELD-B. 
<M> ADD 10 TO FIELD-A. 

moves the block of MOVE instructions just ahead of 
the last line: 

ADD FIELD-B TO FIELD-A. 
ADD 8 TO FIELD-B. 
MOVE FIELD-D TO SAVE-D. 
MOVE FIELD-H TO SAVE-H. 
MOVE FIELD-I TO SAVE-I. 
MOVE FIELD-B TO SAVE-B. 
ADD 10 TO FIELD-A. 

You can cancel the block after specifying it but 
before typing M. To do this, press <3>. 

N 

Updates the display. You might want to use this 
after executing the J command or cancelling the G 
command . 



Copies the specified block just above the current 
line. (Use <1> and <2> to specify a block as 
described in the M command.) 

P 

Moves the cursor to the next page (which is 24 lines 
from the top of the screen on the Model 4 and 17 lines 
on the Model III). 

Q <ENTER> 

Exits the Editor. If you forgot to save the file 
first, type CEDIT * <ENTER> immediately upon exiting 
the Editor. The Editor will load with your text 
retained in memory. 

R <ENTER> 

Deletes the current line and enters the insert mode. 

Using the J command, if there is 0000 memory left in 

the buffer, executing the R command will delete the 

line but will not allow it to be replaced with new 

text. 
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T 

Moves the cursor to the top of the text. 

U 

Moves the cursor to the previous page (which is the 24 

preceding lines for Model 4 and 17 lines for Model III). 

V 

Scrolls current line to the top of the screen. 

w filespec $ optionl . . . <ENTER> 

Saves all text on disk as filespec . filespec is 

optional; if omitted, it is the filespec you used 

to load the file. The Editor appends /CBL to filespec 

unless it already includes an extension. 

The options are: 

E Exits the Editor after saving the file unless 

there is an error. 



L, ML, OR LM Saves the file with line numbers in this 

format: ASCII line number/dummy TAB/text . 

M Saves the file as a fixed length record (FLR) 

file with a LRL of 256 in this format: 

text/carriage return 

This option is the default. You can use 
CEDIT to edit a "DO-file" created with the 
TRSDOS "BUILD" command and save this format, 
which can be loaded by the TRSDOS "DO" 
command . 

For example: 

W SAMPLE <ENTER> 
saves all text as a file named SAMPLE/CBL. 

W SAMPLE $E 

saves text as SAMPLE/CBL. The Editor will exit back to 
TRSDOS Ready after saving the file. 
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Without using the L or the M options, the Editor saves the 
file in the format required by the COBOL Compiler: 

Each character is saved exactly as it appears 
on the display. 

No carriage returns or end of text code is saved. 

Each line is saved in this format: 
length/text/ 

X del stringl del string2 del occurrence 

Same as the C command, but prompts before making the 
change. Occurrence must range from 1 to 255. 



THE INSERT MODE 

The I command gets you into the insert mode. Type: 



(Do not press <ENTER>.) The editor clears the screen and 
positions the cursor at the upper left-hand corner. You can 
now insert source lines into the edit buffer. 

Each source line may have up to 78 characters. After typing 
the line, press <ENTER> to insert it. To cancel it and 
return to the Editor command mode, press <BREAK>. For 
example: 

;THIS IS THE FIRST LINE <ENTER> 
;THIS IS THE SECOND <ENTER> 
;AND HERE IS ANOTHER < BREAK > 

inserts only the first two lines in the Editor's memory; 
then returns to the Editor command mode. 

While inserting lines, you might find it convenient to use 
the <right arrow) key. This key is used as a tab key. The 
Editor has tabs set every four columns. The first tab 
begins at eight with the second at twelve, the third at 
sixteen, the fourth at twenty, etc. 

NOTE: When the edit buffer is full, it will give you a 
buffer full message and return to the command mode. 
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Table 3/ CEDIT Insert Mode Special Keys 



<LEFT ARROW> 



<ENTER> 



< BREAK y 



<RIGHT ARROW> 



moves cursor back one space and 
cexeTies a cnaracxier 

ends current line, carriage 
return, and goes to next line 
still in "I" mode. 
Note: <ENTER> inserts a blank 
line if executed by itself. 

cancels current line, and returns 
to CMD-mode with the cursor on 
the next line. 

moves to next tab position on the 
line. 



The LINE EDIT MODE 

The E command enters the line edit mode for editing 
characters within the current line. When you enter this 
mode, the Editor displays the line in reverse video on the 
Model 4 only. You can then use any of the edit subcommands 
listed in Table 5 or the special edit keys listed in Table 
6. 

For example, assume the cursor is on the following line: 

*THIS IS THE FIRST LINE 

To change the word FIRST to THIRD from the command mode, 
type: 

E 

(Do not press <ENTER>.) The Editor will display the line in 
reverse video (Model 4 only) . You are now in the line edit 

XllwvJ.CS . 

Use the <SPACEBAR> to position the cursor at the F in FIRST 
and type: 
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5CTHIRD <ENTER> 

This stores the change and returns to the Editor command 
mode . 



Table 4/ CEDIT Line Edit Mode Subcommands 



COMMAND 



DESCRIPTION 



nC strinq 



nD 



E 



H string 



I string 



nKcharacter 



Clears all changes and re-enters 
the edit mode for the current line. 

Changes the next n characters to 
the specified string . If n is 
omitted, only one character is 
changed. (Press <SHIFTXup arrow> to 
exit the change early.) 

Deletes n characters. If n is 
omitted, one character is deleted. 

Exits the edit mode and stores 
changes . 

Deletes the remaining characters, 
enters the insert mode and allows you 
to insert a string . 

Allows you to insert material 
beginning at the current cursor 
position on the line. Pressing 
<left arrow) will delete characters 
from the line. The line may be up to 
78 characters in length on the Model 4 
and 61 characters in length on the 
Model III. 

Kills all characters preceding the 
nth occurrence of the character .* 
If n is omitted, the first 
occurence is used. If no match is 
found, the rest of the line is killed. 
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L 
Q 

nScharacter 



X string 



Moves cursor to beginning of line. 

Quits the edit mode, cancelling all 
changes . 

Positions the cursor at the nth 

occurrence of character.* If no 

match is found, positions the cursor 
at the end of the line. 

Moves the cursor to the end of the 
line, enters the insert mode, and 
allows you to insert a string . 



* The compare begins on the character following the current 
cursor position. 



Table 5/ CEDIT Line Edit Mode Special Keys 



<SPACEBAR> 



Moves cursor one position to the 
right. 



<SHIFT> <up arrow> Returns to edit command mode from the 

I, X, C, or H subcommands. 

<right arrow> Moves cursor to next tab position 

(or the end of the line) while 
in the I, X, or H subcommand mode. 

<left arrow> Moves cursor one position to the left. 

<ENTER> Identical to the E subcommand. 
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PREFACE 



This document contains the information required to develop 
COBOL language programs using the Ryan-McFarland Corporation 
RM/COBOL* Compiler. This document is reference in nature 
and assumes the user is familiar with the COBOL language. 

The reader is specifically referenced to the RM/COBOL User's 
Guide applicable to the Operating System to be used. 



COPYRIGHT NOTICE 
Ryan-MacFarland COBOL (RM/COBOL) is a proprietary product 
of: 

Ryan-McFarland Corporation 
Software Products Group 

3233 Valencia Avenue 
Aptos, California 95003 
(408) 662-2522 



The software described in this document is furnished to the 
user under a license for use on a single computer system and 
may be copied (with inclusion of the copyright notice) only 
in accordance with the terms of such license. 

Copyright 1980 by Ryan-McFarland Corporation. All rights 
reserved. No part of this publication may be reproduced, 
stored in a retrieval system, or transmitted, in any form or 
by any means, electronic, mechanical, photocopying, 
recording, or otherwise, without the prior written 
permission of Ryan-McFarland Corporation. 



*RM/COBOL is a registered trademark of Ryan-McFarland 
Corporation . 
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INTRODUCTION TO COBOL 



What is COBOL? 



COBOL (COmmon Business Oriented Language) is an English 
oriented programming language designed primarily for 
developing business applications on computers. It is 
described as English oriented because its free form enables 
a programmer to write in such a way that the final result 
can be read easily and the general flow of the logic can be 
understood by persons not necessarily as closely allied with 
the details of the problem as the programmer himself. 

Because COBOL is a programming language it can be translated 
to serve as communication between the programmer and the 
computer. The COBOL program (the source program) which has 
been written by the programmer is input to the COBOL 
compiler. The COBOL compiler then translates the COBOL 
program into a machine readable form (the object program.) 

Although each computer has its own unique COBOL compiler 
program, an industry-wide COBOL effort has resulted in a 
degree of compatibility so that a COBOL source program can 
be exchanged among different computers of one manufacturer 
or among computers of different manufacturers. 

A COBOL program is both a readable document and an efficient 
computer program. Throughout the study of the COBOL 
language, it is important to keep these two basic 
capabilities of COBOL in mind and to observe the close 
relationship between them. 

The readability factor of the COBOL language facilitates 
communication not only between programmer and management, 
but also among programmers, with a minimum of additional 
documentation. The readability factor need not affect the 
other equally important capability of constituting an 
efficient computer program. It is precisely here that the 
attention of a good COBOL programmer is centered. He can 
produce a solution in the form of a well-integrated COBOL 
program by combining the following: knowledge of the 
problem, programming technique, capability of the equipment, 
and familiarity with the available elements of the COBOL 
language. 
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The History of COBOL 



Development of the COBOL programming language is a 
continuing process performed by the Programming Language 
Committee (PLC) of the conference on DAta SYstems Languages 
(CODASYL). This committee is made up of representatives of 
computer manufacturers and computer users. 

The first version of the COBOL programming language to be 
published by CODASYL was called COBOL-60. The second 
version, called C0B0L-61, contained changes in the 
organization of the Procedure Division and thus was not 
completely compatible with COBOL-60. 

In 1963 the third version, called C0B0L-61 Extended, was 
released. It was basically C0B0L-61 with the addition of 
the sort feature, the addition of the report writer feature, 
and the modification of the arithmetics to include multiple 
receiving fields and the CORRESPONDING option. 

The fourth version of the COBOL programming language, 
COBOL-65, consists of C0B0L-61 Extended with the inclusion 
of a series of options to provide for the reading, writing, 
and processing of mass storage files and the addition of 
table handling features. 

Beginning in 1968 the CODASYL COBOL Programming Language 
Committee began to report its developmental work in a 
Journal of Development. The first report to be published 
was the CODASYL COBOL Journal of Development — 1968. this 
journal is the official report of the CODASYL COBOL 
Programming Language Committee and it documents the 
developmental activities of CODASYL through July 1968. 
COBOL-68 is based on COBOL-65 with certain additions and 

ucJLculOnS . 

Additional COBOL Journal of Development reports were 
published in 1969, 1970 and 1973. Each documented the 
developmental activities of CODASYL from the previous 
report, resulting in continually varying COBOL definitions. 
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The Standardization of COBOL 

In September 1962 the American National Standards Institute 
(ANSI) set up a committee to work on the definition of a 
standard COBOL programming language. This standardization 
effort was based on the technical content of COBOL as 
defined by CODASYL. In August 1968 an American National 
Standard COBOL was approved which was based upon the 
developmental work of CODASYL through January 1968. This 
first version was called American National Standard COBOL 
1968. 



In May 1974 a revision of American National Standard COBOL 
was approved. This revision, called American National 
Standard COBOL 1974, is based upon the developmental work of 
CODASYL through December 1971. The COBOL programming 
language and the compiler described in this document is 
based on the American National Standard COBOL 1974. 
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CONVENTIONS USED IN THIS MANUAL 



This manual presents the language definition and 
capabilities of COBOL in a generally accepted syntax 
consistent with the 1974 American National Standard COBOL 
document. As a result, COBOL Syntax is specified by formats 
employing special notation. 



Words 



All underlined uppercase words are key words and are 
required when the functions of which they are a part are 
used. Uppercase words which are not underlined are optional 
and may or may not be present in the source program. 
Uppercase words, whether underlined or not, must be spelled 
correctly. 

Lowercase words are generic terms used to represent COBOL 
words, literals, PICTURE character-strings, comment-entries, 
or a complete syntactical entry that must be supplied by the 
user. When generic terms are repeated in a general format, 
a number or letter appendage to the term serves to identify 
that term for explanation or discussion. 



Brackets and Braces 



When a portion of a general format is enclosed in brackets, 
[], that portion may be included or omitted at the user's 
choice. Braces, {}, enclosing a portion of a general format 
means a selection of one of the options contained within the 
braces must be made. In both cases, a choice is indicated 
by vertically stacking the possibilities. When brackets or 
braces enclose a portion of a format, but only one 
possibility is shown, the function of the brackets or braces 
is to delimit that portion of the format to which a 
following ellipsis applies. If an option within braces 
contains only reserved words that are not key words, then 
the option is a default option (implicitly selected unless 
one of the other options is explicitly indicated) . 
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Ellipsis 



The ellipsis (...) represents the position at which 
repetition may occur at the user's option. 



Punctuation 



The punctuation characters comma and semicolon are shown in 
some formats. Where shown in the formats, they are 
optional and may be included or omitted by the user. In the 
source program these two punctuation characters are 
interchangeable and either may be used anywhere one of them 
is shown in the formats. Neither one may appear immediately 
preceding the first clause of an entry or paragraph. 

If desired , a semicolon or comma may be used between 
statements in the Procedure Division. 

Paragraphs within the Identification and Procedure 
Divisions, and the entries within the Environment and Data 
Divisions must be terminated by the separator period. 



Special Characters 



The characters ' + ', '-', '>', '<', t= \ when appearing in 
formats, although not underlined, are required when such 
formats are used. 



System Dependent Information 



Selected features in ANSI COBOL are intended for definition 
by the implementor, to accomodate the capabilities and 
restrictions of the host system. These system dependent 
items are summarized in the COBOL Users Guide. 
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THE STRUCTURE OF THE COBOL LANGUAGE 
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THE LANGUAGE STRUCTURE 



The smallest element in the COBOL language is the character. 
A character is a digit, a letter of the alphabet, or a 
symbol. A COBOL word is one possible result obtained when 
one or more COBOL characters are joined in a sequence of 
contiguous characters. Just as English words are determined 
by rules of spelling, so COBOL words are formed by following 
a spsci iic Set or ruxes • 

Using the COBOL rules of grammer, the COBOL words and COBOL 
punctuation characters are combined into statements, 
sentences, paragraphs, and sections. When writing normal 
English, a failure to follow the rules of grammar and 
sentence structure may cause misunderstanding; the same is 
true when writing COBOL. It must be emphasized that a 
thorough knowledge of the rules of COBOL structure is a 
prerequisite to writing a workable COBOL program. 



Character Set 



The COBOL character set consists of fifty one characters 



Digits 

Letters 

Punctuation 



Special 



through 9 

A through Z 

Blank (or space) 

Comma 

Semicolon 

Period 

Quote 

Left parenthesis 

Right parenthesis 

Greater 

Less than 

Plus 

Minus (or hyphen) 

Asterisk 

Slash ( or Stroke) 

Equal 

Currency 



Radio /haek 

- 11 - 



Character Set ■ ■ »e? ,ptfi ® RM/COBOL Language 



These characters determine the structure of a COBOL program 
In some constructs, such as comments, other characters may 
be used but they have no grammatical meaning. 

Characters are combined to form either a separator or a 
character -string. 
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The COBOL character set is a proper subset of the ASCII 
character code set native to the computer. The complete 
character set may be used only within non numeric literals 
and comments. The chart below gives the hexadecimal and 
decimal codes for the complete character set. 





Hexadecimal 


Decimal 




Hexadecimal 


Decimal 


Character 


Value 


Value 


Character 
§ 


Value 
40 


Value 


Space 


20 


32 


64 


i 


21 


33 


A 


41 


65 


ii 


22 


34 


B 


42 


66 


# 


23 


35 


C 


43 


67 


$ 


24 


36 


D 


44 


68 


% 


25 


37 


E 


45 


69 


& 


26 


38 


F 


46 


70 


i 


27 


39 


G 


47 


71 


( 


28 


40 


H 


48 


72 


) 


29 


41 


I 


49 


73 


* 


2A 


42 


J 


4A 


74 


+ 


2B 


43 


K 


4B 


75 


i 


2C 


44 


L 


4C 


76 


- 


2D 


45 


M 


4D 


77 


• 


zE 


46 


N 


4E 


78 


/ 


2F 


47 





4F 


79 





30 


48 


P 


50 


80 


1 


31 


49 


Q 


51 


81 


2 


32 


50 


R 


52 


82 


3 


33 


51 


S 


53 


83 


4 


34 


52 


T 


54 


84 


5 


35 


5.3 


U 


55 


85 


6 


36 


54 


V 


56 


86 


7 


37 


55 


W 


57 


87 


8 


38 


56 


X 


58 


88 


9 


39 


57 


Y 


59 


89 


: 


3A 


58 


Z 


5A 


90 


• 
9 


3B 


59 


[ 


5B 


91 


< 


3C 


60 


/ 


5C 


92 


= 


3D 


61 


] 


5D 


93 


> 


3E 


62 


~* 


5E 


94 


? 


3F 


63 


- 


5F 


95 
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Separators 

A separator is a string of one or more punctuation 
characters. 

Punctuation characters belong to the following set: 

Space 
, Comma 

= Equal Sign 

( Left parenthesis 

Period 
* " Quotation Mark (double) 

) Right parenthesis 

; Semicolon 

Separators are formed according to the following rules: 

1. A space is a separator. Anywhere a space is used as a 
separator, more than one space may be used. 

2. Comma, semicolon, and period are separators when 
immediately followed by a space. These separators may 
appear only when explicitly permitted. 

3. Parentheses are separators which may appear only in 
balanced pairs of left and right parentheses delimiting 
subscripts, indices, arithmetic expressions or 
conditions. 

Left parentheses must be preceded by a separator space 
or left parenthesis. 

Right parenthesis must be followed by one of the 

separators: 

space, period, semicolon, comma or right parenthesis. 

4. Quotes are separators which may appear only in balanced 
pairs delimiting the nonnumeric literals except when 
the literal is continued. 

An opening quotation mark must be immediately preceded 
by a space or left parenthesis. 

A closing quotation mark must be immediately followed 
by one of the separators: space, comma, semicolon, 
period or right parenthesis. 
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5. The separator space may optionally immediately precede 
all separators except: 

As spGcir i6Q *^y reference lormau. ruj.es • 

As the separator closing quotation mark. In this case, 
a preceding space is considered as part of the 
nonnumeric literal and not as a separator. 

The separator space may optionally immediately follow 
any separator except the opening quotation mark. In 
this case, a following space is considered as part of 
the nonnumeric literal and not as a separator. 

Any punctuation character which appears as part of the 
specification of a PICTURE character-string or numeric 
literal is not considered as a punctuation character, but 
rather as a symbol used in the specification of that PICTURE 
character-string or numeric literal. PICTURE 
character-strings are delimited only by the separators 
space, comma, semicolon, or period. 

These rules do not apply to the characters within nonnumeric 
literals, picture strings, or comments. 



Character-Strings 



A character-string is a sequence of one or more characters 
that form a COBOL word, literal, picture string, or comment 
Q character-string is delimited by separators. 



COBOL Words 



A COBOL word is a character-string of not more than 30 
characters which form either a user word or a reserved word 
All words are one or the other. 
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User Words 

User words are composed of the alphabetic characters, the 
numbers, and the hyphen character. A user word must not 
begin or end with a hyphen. With the exception of 
paragraph-name, section-name, level-number and 
segment-number, all user-defined words must contain at least 
one alphabetic character. There are twelve types of user 
words : 

program-name condition-name 

file-name index-name 

record-name alphabet-name 

data-name text-name 

paragraph-name level-number 

section-name segment-number 

Program-Name 

The program-name identifies the COBOL source and object 
program. The name must contain at least one alphabetic 
character. Only the first 6 characters are associated with 
the object program. 

File-Name 

File-names are the internal names for files accessed by the 
source program. They are not necessarily the same as the 
external names given to the files. File-names must contain 
at least one alphabetic character and must be unique. 

Record-Name 

Record-names are used to name data records within a file. 
They must contain at least one alphabetic character and, if 
not unique, must be made unique by qualification with the 
ri is name . 

Data-Name 

A group of contiguous characters or a word of binary data 
treated as a unit of data is called a data item, named by a 
data-name. A data-name must contain at least one alphabetic 
character. References to data items must be made unique by 
qualification or the appending of subscripts (or indices) or 
both. Complete unique references to data items are called 
identifiers . 
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Paragraph-Name 

A paragraph -name is a procedure name that identifies the 
beginning of a set of COBOL procedural sentences. If not 
unique, a paragraph-name must be made unique by- 
qualification with a section-name. 



Section-Name 

A section-name is a procedure name that identifies the 
beginning of a set of paragraphs. Section-names must be 
unique. 



Condition-Name 

A condition-name may be defined in the SPECIAL-NAMES 
paragraph within the Environment Division or in a 
level-number 88 description within the Data Division. 

A SPECIAL-NAMES condition-name is assigned to ON STATUS or 
OFF STATUS of one of eight system software switches. 

A level-number 88 condition-name is assigned to a specific 

value, set of values, or range of values within a complete 

set of values that a data item may assume. The data item 
itself is called a conditional variable. 

A condition-name is used only in conditions as an 
abbreviation for the relation condition which assumes that 
the associated switch or conditional variable is equal to 
one of the set of values to which that condition-name i-s 
assigned. 



Index-Name 

An Index-name names an index associated with a specific 
table. It must contain at least one alphabetic character and 
must be unique. 



Alphabet-Name 

An alphabet-name is used to specify a character code set. 
It must contain at least one alphabetic character and must 
be unique. 
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Text-Name 

A text-name is the name of a COBOL library text file. It 
must correspond exactly to a valid file access-name as 
described in the operating system documentation. 

Level-Number 

A level-number is used to specify the position of a data 
item within a data hierarchy. A level-number is a one- or 
two-digit number in the range 01-49, 66, 77 or 88. 

Level-numbers 66, 77 and 88 identify special properties of a 
data description entry. 



Segment-Number 

A segment-number specifies the segmentation classification 
of a section. It is a one- to two-digit number in the range 
01-99. 
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Reserved Words 



The structure of COBOL governs the use of certain COBOL 
words called reserved words. Reserved words, recognized by 
the COBOL compiler, aid the compiler in determining how to 
generate a program. A programmer cannot devise a reserved 
word for a COBOL program; he must use the word designated 
by the format of the language. A reserved word must not 
appear as a user-defined word within a program. A list of 
all reserved words recognized by the compiler is shown in 
Appendix B. 

Five kinds of reserved words are recognized by the compiler : 



Key words 
Optional words 
Connectives 
Figurative constants 
Special -characters 



Key Words 

Key words are required elements of COBOL formats. Their 
presence indicates specific compiler action. 



Optional Words 

Optional words are optional elements of COBOL formats 
Their presence has no effect on the object program. 



Connectives 

The connectives OF and IN are used interchangeably to 
connect qualifiers to a user word. The words AND and OR are 
logical connectives and are used in the formation of 
conditions. 



Figurative Constants 

Figurative constants identify commonly used constant values. 
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These constant values are generated by the compiler 
according to the context in which the references occur. 
Note that figuratives represent values, not literal 
occurrences. Thus QUOTE cannot be used to delimit a 
nonnumeric literal, SPACE is not a separator, and so forth. 
Singular and plural forms of figuratives are equivalent and 
may be used interchangeably. 

ZERO 

ZEROS 

ZEROES 

Represents the value or one or more zero (0) 
characters, depending on context. 



SPACE 
SPACES 

Represents one or more space ( ) characters 



HIGH -VALUE 
HIGH-VALUES 

Represents one or more of the highest characters in the 
collating sequence (hexadecimal FF) . 



LOW -VALUE 
LOW-VALUES 

Represents one or more of the lowest characters in the 
collating sequence (hexadecimal 00). 



QUOTE 
QUOTES 

Represents one or more quote ( " ) characters. 
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ALL literal 

Represents one or more of the characters comprising the 
literal. The literal must be either a nonnumeric literal or 
a figurative constant. When a figurative constant is used, 
the word ALL is redundant. 

When a figurative constant represents a string of one or 
more characters, the length of the string is determined by 
the compiler from context according to the following rules: 

1. When a figurative constant is associated with 
another data item, as when the figurative constant 
is moved to or compared with another data item, 
the string of characters specified by the 
figurative constant is repeated character-by 
character on the right until the size of the 
resultant string is equal to the size in 
characters of the associated data item. This is 
done prior to and independent of the application 
of any JUSTIFIED clause that may be associated 
with the data item. 

2. When a figurative constant is not associated with 
another data item, as when the figurative constant 
appears in a DISPLAY or STOP statement, the length 
of the string is one character. 

A figurative constant may be used wherever a literal appears 
in a format, except that whenever the literal is restricted 
to having only numeric characters in it, the only figurative 
constant permitted is ZERO (ZEROS, ZEROES). 

Each reserved word which is used to reference a figurative 
constant value is a distinct character-string with the 
exception of the construction 'ALL literal' which is 
composed of two distinct character-strings. 

Special Characters 

The special character words are the arithmetic operators and 
relation characters: 

+ Plus sign (indexing) 

Minus Sign (indexing) 
> Greater than 
< Less than 

Equal to 
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Literals 



A literal is a character-string whose form determines its 
value. Literals are either nonnumeric or numeric. 



Nonnumeric Literals 

A nonnumeric literal is a character-string enclosed in 
quotes. Any characters in the COBOL character set may be 
used. Quote characters within the string are represented by 
two contiguous quotes. The value of the literal is the 
string itself excluding the delimiting quotes and one of 
each contiguous pair of embedded quotes. The value of the 
literal may contain from 1 to 2047 characters. 



Examples : 



Literal Value 

"AGE?" AGE? 

" " " TWENTY " " ? " " TWENTY " ? 



ii ti it ii ii 



illegal (odd number of quotes) 



Numeric Literals 



A numeric literal represents a numeric value, not a 
character-string. Numeric literals are composed according 
to the following rules: 

1. The literal must contain from 1 to 18 digits. 

2. The literal may contain a single plus or minus sign if 
it is the first character. 

3. The literal may contain a single decimal point if it is 
not the last character. The decimal point must be 
represented with a comma if the DECIMAL-POINT IS COMMA 
phrase is specified in the SPECIAL-NAMES paragraph. 



Examples : 



1234 
+1234 
-1.234 

• -J. £* «3 Te 

+.1234 
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Picture String 



A picture string consists of certain combinations of 
characters from the COBOL character set used as symbols. 
Any punctuation character appearing as part of a picture 
string is considered to be a symbol, not a punctuation 
character. 



Comment-Entry 

A comment-entry is an entry in the Identification Division 
that may contain any characters from the computer's 
character set. 



System names 

System names identify certain hardware or software system 
components. System names consist of device-names and 
switch-names. 

Device-Names Component 

PRINT printer or print file 

INPUT input only device 

OUTPUT output only device 

INPUT-OUTPUT input-output device 

RANDOM disc 



Switch-Names Component 
SWITCH-1 

software switches 
SWITCH-8 
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THE PROGRAM STRUCTURE 



Source Format 

COBOL programs are accepted as a sequence of formatted lines 
(or records) of 80 characters or less. Each line is divided 
into five areas: 

Columns Area 

1-6 sequence number 

7 indicator 

8-11 A 

12-72 B 

73-80 identification 

The sequence number and identification areas are used for 
clerical and documentation purposes. They are ignored by 
the compiler. 

The indicator area is used for denoting line continuation, 
comments, and debugging. 

Areas A and B contain the actual program according to the 
following rules: 

1. Division headers, section headers, paragraph headers, 
section-names, and paragraph-names must begin in area 
A. 

2. The Data Division level indicator FD and level-numbers 
01 and 77 must begin in area A. Other level-numbers 
may begin in area A or area B, although B is 
preferable. 

3. The key word DECLARATIVES and the key words END 
DECLARATIVES, precede and follow, respectively, the 
declaratives portion of the Procedure Division. Each 
must appear on a line by itself and each must begin in 
area A and be followed by a period and a space. 

4. Any other language element must begin in area B unless 
it immediately follows, on the same line, an element in 
area A. 
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Continuation of Lines 



TRS-8D 



Whenever a sentence, entry, phrase, or clause requires more 
than one line, it may be continued by starting subsequent 
line(s) in area B. These subsequent lines are called the 
continuation lines (s). The line being continued is called 
the continued line. Any word or literal may be broken in 
such a way that part of it appears on a continuation line, 
according to the following rules: 

1. A hyphen in the indicator area of a line indicates that 
the first nonblank character in area B of the current 
line is the successor of the last nonblank character of 
the preceding line without any intervening space. 
However, if the continued line contains a nonnumeric 
literal without closing quotation mark, the first 
nonblank character in area B on the continuation line 
must be a quotation mark, and the continuation starts 
with the character immediately after that quotation 
mark. All spaces at the end of the continued line are 
considered part of the literal. Area A of continuation 
line must be blank. 

2. If there is no hyphen in the indicator area of a line, 
it is assumed that the last character in the preceding 
line is followed by a space. 



Blank Lines 

A blank line is one that is blank in the indicator, A and B 
areas. A blank line can appear anywhere in the source 
program, except immediately preceding a continuation line 
with a hyphen in the indicator area. 



Comment Lines 

A comment line is any line with an asterisk (*) in the 
indicator area of the line. A comment line can appear as 
any line in a source program after the Identification 
Division header. Any combination of characters from the 
computer's character set may be included in area A and area 
B of that line. The asterisk and the characters in area A 
and area B will be produced on the listing but serve as 
documentation only. 
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Debugging Lines 



A debugging line is any line with a D in the indicator area 
of the line. Any debugging line that consists solely of 
spaces from area A to the identifier area is considered to 
be a blank line. 

A program that contains debugging lines must be 
syntactically correct with or without the debugging lines. 

A debugging line will be considered to have all the 
characteristics of a comment line if the debug option is not 
specified at compiler invocation. 

Successive debugging lines are allowed. Continuation of 
debugging lines is permitted, except that each continuation 
line must contain a D in the indicator area, and character 
strings may not be broken across two lines. 



Statements 

COBOL statements always begin with a key word called a verb. 
There are three kinds of statements: directive, 
conditional, and imperative. 

A directive statement specifies action to be taken by the 
compiler during compilation. The directive statements are: 

The COPY and USE statements. 

A conditional statement specifies that the truth value of a 

condition is to be determined and that the subsequent action 

of the object program is dependent on this truth value. The 
conditional statements are: 

An IF statement. 

A READ statement with the AT END or INVALID KEY phrase. 
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A DELETE, REWRITE or START statement with the INVALID KEY 
phrase. 

A WRITE statement with the INVALID KEY phrase. 

An arithmetic statement (ADD, COMPUTE, DIVIDE, MULTIPLY, 
SUBTRACT) with the SIZE ERROR phrase. 

An imperative statement specifies an unconditional action to 
be taken by the object program. The imperative statements 
are: 

A READ statement without the AT END or INVALID KEY 
phrase. 

A DELETE, REWRITE or START statement without the 
INVALID KEY phrase. 

A WRITE statement without the INVALID KEY phrase. 

An arithmetic statement (ADD, COMPUTE, DIVIDE, 
MULTIPLY, SUBTRACT) without the ON SIZE ERROR phrase. 

An ACCEPT, ALTER, CLOSE, DISPLAY, EXIT, GO, INSPECT, 
MOVE, OPEN, PERFORM, SET or STOP statement. 

Whenever the term imperative-statement appears in the format 
of a COBOL verb, it refers to one or more consecutive 
imperative statements. The sequence ends with a period 
separator or an ELSE associated with an IF verb. 



Sentences 



A sentence is a sequence of one or more statements 
terminated by the period separator. There are three kinds 
of sentences: directive, conditional, and imperative. 

A directive sentence may contain only a single directive 
statement . 
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A conditional sentence is a conditional statement, 
optionally preceded by a sequence of imperative statements, 
terminated by a period followed by a space. 

An imperative sentence is one or more imperative statements 
terminated by a period separator. 



Clauses and Entries 



An entry is an item of descriptive or declaratory nature 
composed of consecutive clauses. Each clause specifies an 
attribute of the entry. Clauses are separated by space, 
comma, or semicolon separators. The entry is terminated by 
a period separator. 



Paragraphs 

A paragraph is a sequence of an arbitrary number, which may 
be zero, of sentences or entries. In the Identification and 
Environment Divisions, each paragraph begins with a reserved 
word called a paragraph header. In the Procedure Division, 
each paragraph begins with a user-defined paragraph-name. 



Sections 



A section is a sequence of an arbitrary number, which may be 
zero, of paragraphs in the Environment and Procedure 
Divisions and a sequence of an arbitrary number, which may 
be zero, of entries in the Data Division. In the 
Environment and Data Divisions, each section begins with 
reserved words called a section header. In the Procedure 
Division, each section begins with a user-defined 
sect ion -name. 



Radio /haek 

- 28 - 



RM/COBOL Language TQS-SQ ® COPY Statement 



Divisions 



Each COBOL program consists of four divisions; each is 
composed of paragraphs or sections. These are the 
Identification, Environment, Data and Procedure divisions, 
in that order. All divisions are required. Each division 
begins with a group of reserved words called a division 
header. 



THE COPY STATEMENT 



The COPY statement provides the facility for copying text 
from user-specified files into the source program. Text is 
copied from the file without change. The effect of the 
interpretation of the COPY statement is to insert text into 
the source program, where it will be treated by the compiler 
as part of the source program. 

COBOL library text is placed on the COBOL library as a 
function independent of the COBOL program and according to 
operating system techniques. 



FORMAT 

COPY Text-name. 

The COPY statement must be preceded by a space and 
terminated by the separator period. There must not be any 
additional text in area B following the separator period. 

Text-name is the external identification of the file 
containing the text to be copied. Its format conforms to 
the rules for filename (or pathname) construction of the 
host operating system. If the external identification 
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contains any characters that are not letters or digits, or 
if the first character is not a letter, then the text-name 
must be written as a nonnumeric literal and enclosed in 
quotation marks. 

A COPY statement may occur in the source program anywhere a 
character string or separator may occur except that a COPY 
statement must not occur within a COPY statement. 

The compilation of a source program containing COPY 
statements is logically equivalent to processing all COPY 
statements prior to the processing of the resulting source 
program. 

The effect of processing a COPY statement is that the 
library text associated with text-name is copied into the 
source program, logically replacing the entire COPY 
statement, beginning with the reserved word COPY and ending 
with the punctuation character period, inclusive. 

The library text is copied unchanged. 

Debugging lines are permitted within library text. If a 
COPY statement is specified on a debugging line, then the 
COPY statement will be processed only if the debug option 
has been specified in the compiler invocation options. 

The text produced as a result of processing a COPY statement 
may not contain a COPY statement. 

The syntactic correctness of the library text cannot be 
independently determined. The syntactic correctness of the 
entire COBOL source cannot be determined until all COPY 
statements have been completely processed. 
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Library text must conform to the rules for COBOL source 
format. 



COPY Examples : 



FILE-CONTROL. 

COPY FLCTRL. 

PROCEDURE DIVISION. 

COPY " INPUTP . COBOL " 
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TRS-80 



in 



IDENTIFICATION DIVISION 
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INTRODUCTION 



The Identification Division must be included in every COBOL 
source program. This division identifies both the source 
program and the resultant object program. In addition, the 
user may include other commentary information. 



FORMAT 

IDENTIFICATION DIVISION. 



PROGRAM-ID . program-name. 
[ AUTHOR, [comment-entry] ...] 
[ INSTALLATION, [comment-entry] ...] 
[ DATE-WRITTEN, [comment-entry] ...] 
[ SECURITY, [comment-entry] ] 

PROGRAM IDENTIFICATION 



The Identification Division must begin with the reserved 
words IDENTIFICATION DIVISION followed by a period and a 
space . 

Paragraph headers identify the type of information contained 
in the paragraph. The name of the program must be given in 
the first paragraph, which is the PROGRAM-ID paragraph. The 
other paragraphs are optional and may be included at the 
user's choice, in the order of presentation shown. 
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The PROGRAM-ID Paragraph 



The PROGRAM-ID paragraph, containing the program -name, 
identifies the source program, the object program and all 
listings pertaining to a particular program. A program-name 
is a user-defined word made up of only those characters from 
the word set. 

A program-name cannot exceed 8 characters in length, and 
must contain at least one alphabetic character located in 
any position within the program-name. Each program-name 
must be unique. 



The AUTHOR, INSTALLATION, DATE -WRITTEN, SECURITY 
Paragraphs 



The AUTHOR, INSTALLATION, DATE -WRITTEN, and SECURITY 
paragraphs are optional. The programmer may use these 
paragraphs to document information pertaining to the 
paragraph header. 

The comment-entry may be any combination of characters from 
the computer's characters set. The continuation of the 
comment-entry by the use of the hyphen in the indicator area 
is not permitted; however, the comment-entry may be 
contained on one or more lines. 
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IV 



ENVIRONMENT DIVISION 
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INTRODUCTION 



The Environment Division describes the hardware 
configuration of the compiling computer (source computer) 
and the computer on which the object program is run (object 
computer). It also describes the relationship between the 
files and the input/output media. 

The Environment Division must be included in every COBOL 
source program. 

There are two sections in the Environment Division: the 
Configuration Section and the Input-Output Section. 



FORMAT 

ENVIRONMENT DIVISION. 



CONFIGURATION SECTION. 

SOURCE-COMPUTER . computer -name. 

OBJECT-COMPUTER . computer -name. 

[ SPECIAL-NAMES . special-names-entry 3 . 

[ INPUT-OUTPUT SECTION. 

FILE-CONTROL. { f ile-control-entry } ... 

[ I-0-CONTROL. input-output-control-entry]]. 

CONFIGURATION SECTION 



The Configuration Section deals with the characteristics of 
the source computer and the object computer. This section 
is divided into three paragraphs: 
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the SOURCE-COMPUTER paragraph, which describes the 
computer configuration on which the source program is 
compiled 

the OBJECT-COMPUTER paragraph, which describes the 
computer configuration on which the object program 
produced by the compiler is to be run 

the SPECIAL-NAMES paragraph, which relates names used 
by the compiler to user-names in the source program. 

The SOURCE-COMPUTER Paragraph 

The SOURCE-COMPUTER paragraph identifies the computer upon 
which the program is to be compiled. 

FORMAT 

SOURCE-COMPUTER, computer -name. 

Computer-name is a user-defined word and is only commentary 

The OBJECT-COMPUTER Paragraph 

The OBJECT-COMPUTER paragraph identifies the computer on 
which the program is to be executed. 

FORMAT 

OBJECT-COMPUTER, computer -name 

[ , MEMORY SIZE integer { WORDS }] 

{ CHARACTERS } 
{ MODULES } 

[, PROGRAM COLLATING SEQUENCE IS alphabet-name]. 

Computer-name is a user-defined word and is only commentary. 
The MEMORY SIZE definition is treated as commentary. 
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The PROGRAM COLLATING SEQUENCE clause specifies the program 
collating sequence to be used in determining the truth value 
of any nonnumeric comparisons. The Program Collating 
Sequence clause is treated as commentary; the collating 
sequence is always ASCII. 
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The SPECIAL-NAMES Paragraph 

The SPECIAL-NAMES paragraph relates names used by the 
compiler to user-names in the source program. 



FORMAT 

E SPECIAL-NAMES. E, switch-name 

{ON STATUS IS cond-name-l [,QFF STATUS IS cond-name-2]}]... 

{ OFF STATUS IS cond-name-2 [,0N STATIC IS cond-name-l ]} 

[, alphabet-name IS { STANDARD-1 }]... 

{ NATIVE } 

[, CURRENCY SIGN IS literal-1] 

[. DECIMAL-POINT IS COMMA ] .] 

Switch-name may be SWITCH-1, ..., SWITCH-8. 

At least one condition-name must be associated with each 
switch-name given. The status of the switch is specified by 
condition-names and interrogated by testing the 
condition-names . 
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The alphabet-name clause provides a means for relating a 
name to a specified character code set and/or collating 
sequence. The alphabet-name definition is treated as 
commentary; the collating sequence is always ASCII. 

The literal which appears in the CURRENCY SIGN IS literal 
clause is used in the PICTURE clause to represent the 
currency symbol. The literal is limited to a single 
character and must not be one of the following characters: 

digits through 9; 

alphabetic characters A, B, C, D, L, P, R, S, V, X, Z, 
or the space; 

special characters ' * ' , '+', »-', ',', '.', ■;', * (', 

i \ i i H i i / i i __ i 

/ r t / i "- • 

If this clause is not present, only the currency sign ($) is 
used in the PICTURE clause. 

The clause DECIMAL-POINT IS COMMA means that the function of 
comma and period are exchanged in the character-string of 
the PICTURE clause and in numeric literals. 
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1NP0T-00TPUT SECTION 



The INPUT-OUTPUT section names the files and external mean 
required by an object program and pro-- des infc i -Jon 
required for transmission and. faandlinc of data during 
execul ion of the object program. This section is divided 
; r-o two paragraphs; 

the FILE-CONTROL paragraph which names and es 
the £i ] 2S with external media. 

the X-0-CONTROL paragraph which def les special :ontro] 

techniques to be used in the object program. 



FORMAT 

I 11P0T-00TP0T SECTION. 



I :i Le ; ? ontrol-entry} ... 

E l-0-CON T ROL. 

1-0-coetrol-entry] ] 

The FILE-CONTROL Para graph 

The FILE-CONTROL paragraph names each file r»nd allows 
specification of other file-related information. 

FORMAT 

FILE-CONTROL, {file-control-entry} ... 

The content of the file-control-entry is dependent upon the 
organization of the file named. 
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The Seqeen cia„ J'iie C//-:it.cq.i ..Entry 

FORMAT 

SELECT file-name 

ASSIGH TO device-type, {"external-file-name"} 

{data-name-1 } 

£ ' ORGANIZATION IS SEQUENTIAL ] 

I | ACCESS MODE IS SEQUENTIAL ] 

[;FILE STATUS IS data-name- 2] . 



The SELECT clause must be specified first in the file 

control entry. The clauses which fellow the SELECT clause 
may appear in any order . 

Each file described in the Data Division must be named once 

and only once as file-name in the FILE-CONTROL paragraph. 
Each file specified in the file control entry must have a 
file descriccion entry in the Data Division. 



The ASSIGN clause specifies the association of the file 

referenced by file-name to a storage medium. 

Device-type must be one of the device names INPUT, 
INPUT-OUTPUT, OUTPUT, PRINT, or RANDOM according to the 
operations to be performed. 

External-file-name specifies the file access name. It can 
be from one to thirty characters in length and must be 
enclosed in quotation marks. A name longer than thirty 
characters will be diagnosed as an error. The name may 
contain any sequence of characters supported by the 
operating sysrem for file access names, 

Data-name -1 must be ae -;'•'. red in the Data Division as a data 
item of category alphanumeric and must not be defined in the 
Linkage Secti i. Its value at the time of an OPEN statement 
execution will be used as the file access name. Data-name-1 
ma y be q u a 1 i E i ed . 
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The ORGANIZATION clause specifies the logical structure of a 

file. The file organization is established at the time a 
file is created and cannot subsequently be changed. 

Records in the file are accessed in the sequence dictated by 
the file organization. This sequence is specified by 
predecessor-successor record relationships established by 
the execution of WRITE statements when the file is created 
or extended. 

When the ORGANIZATION clause is not specified, ORGANIZATION 
IS SEQUENTIAL is implied. 

The ACCESS MODE clause specifies the order in which records 
are read or written. 

If the ACCESS MODE clause is not specified, ACCESS MODE IS 
SEQUENTIAL is implied. 



When the FILE STATUS clause is specified, a value will be 
moved by the operating system into the data item specified 
by data-name-2 after the execution of every statement that 
references that file either explicitly or implicitly. This 
value indicates the status of execution of the statement. 

Data-name-2 must be defined in the Data Division as a 
two-character data item of the category alphanumeric and 
must not be defined in the File Section. Data-name-2 may be 
qualified. 
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The Relative File Control Entry 

FORMAT 

SELECT file-name 

ASSIGN TO RANDOM , { "external -file-name ■ } 

{data-name-1 } 

y ORGANIZATION IS RELATIVE 

[; ACCESS MODE IS { SEQUENTIAL [. RELATIVE KEY IS data-name-2] } ] 

{{ RANDOM } , RELATIVE KEY IS data-name-2 } 
{{ DYNAMIC } } 

E;FILE STATUS IS data-name-3 ] . 

The SELECT clause must be specified first in the file 
control entry. The clauses which follow the SELECT clause 
may appear in any order. 

Each file described in the Data Division must be named once 
and only once as file-name in the FILE-CONTROL paragraph. 
Each file specified in the file control entry must have a 
file description entry in the Data Division. 

The ASSIGN TO RANDOM clause specifies the association of the 
file referenced by file-name to a storage medium. 

External-file-name specifies the file access name and must 
be enclosed in quotation marks. It can be from one to 
thirty characters in length. A name longer than thirty 
characters will be diagnosed as an error. The name may 
contain any characters supported by the operating system for 
file access names. 

Data-name-1 must be defined in the Data Division as a data 
item of category alphanumeric and must not be defined in the 
Linkage Section. Its value at the time of an OPEN statement 
execution will be used as the file access name. 
Data-name-1 may be qualified. 
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The ORGANIZATION IS RELATIVE clause specifies the logical 
structure of a file. The file crgai tzation is est; * Ished 
at the time a file is created and cannot subsequently be 
changed. 

All records stored m a reiati e fi] arc ui iquely 
identified by relative record numbers The relative record 
number of a given record specifies the record's logical 
ordinal position in the file. The first logical record^has 
a relative record number of one (1), and subsequent logical 
records have relative record number of 2, 3, 4, . ..n. 

The ACCESS MODE clause specifies the order in which records 
are to be accessed. 

When the ACCESS MODE IS SEQUENTIAL, records in the file^are 
accessed in the sequence dictated by the file organization. 
This sequence is the order of ascending relative record 
numbers of existing records in the file. 

If the ACCESS MODE IS RANDOM, the value of the RELATIVE KEY 
data item indicates the record to be accessed. 

If a relative file is to be referenced by a START statement, 
the RELATIVE KEY phrase must be specified for that file. 

When the ACCESS MODE IS DYNAMIC, records in the file may be 

accessed sequentially and/or randomly. 

Data-name-2 must not be defined in a record description 
entry associated with that file-name. The data item 
referenced by data-name-2 must be defined as an unsigned 
integer. Data-name-2 may be qualified. 

If the ACCESS MODE clause is not specified, ACCESS MODE IS 
SEQUENTIAL is implied. 

When the FILE STATUS clause is specified, a value will be 
moved by the operating system into the data item specified 
by data-name-3 after the execution of every statement that 
references that file either explicitly or implicitly. This 
value indicates that status of execution of the statement. 

Data-name-3 must be defined in the Data Division as a 
two-character data item of the category alphanumeric and 
must not be defined in the File Section. 
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FORMAT 

SELECT file-name 

ASS1GH TO MMDOM, { "external-f lie-name" } 

;data-name-l } 

Cg ORGAlIZATIOH IS INDEXED 

[ I ACCESS MODE IS { SEQUENTIAL } 3 

{ RANDOM } 
{ DYNAMIC } 

; RECORD KEY IS data-name- 2 

[ ; ALTERHATB RECORD KEY IS data -name- 3 [WITH DUPLICATES ] I . . . 

[ I FILE STATUS IS data-name-4] . 

The SELECT clause must be specified first in the file 

control entry. The clauses which follow the SELECT clause 
may appear in any order . 

Each file described in the Data Division must be named once 
and only once as file-name in the FILE-CONTROL paragraph. 

Each file specified in the file control entry must have a 
file description entry in the Data Division. 



The ASSIGN TO RANDOM clause specifies the association of the 
file referenced by file-name to a storage medium. 

External-file-name specifies the file access name and must 
be enclosed in quotation marks. It can be from one to 
thirty characters in length. A name longer than thirty 
characters will be diagnosed as an error. The name may 
contain any characters supported by the operating system for 
file access names. 

Data-name-1 must be defined in the Data Division as a data 
item of category alphanumeric and must not be defined in the 
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Linkage Section. Its value at the time of an OPEN statement 
execution will be used as the file access name. Data-name-1 
may be qualified. 

The ORGANIZATION IS INDEXED clause specifies the logical 
structure of a file* The file organization is established 
at the time a file is created and cannot subsequently be 
changed. 



The ACCESS MODE clause specifies the order in which records 
are to be accessed. 

When the ACCESS MODE IS SEQUENTIAL, records in the file are 
accessed in the sequence dictated by the file organization. 
For indexed files this sequence is the order of ascending 
record key values within a given key of reference. 

If the ACCESS MODE IS RANDOM, the value of the RECORD KEY 
data item indicates the record to be accessed. 

When the ACCESS MODE IS DYNAMIC, records in the file may be 
accessed sequentially and/or randomly. 

If the ACCESS MODE clause is not specified, ACCESS MODE IS 
SEQUENTIAL is implied. 



The RECORD KEY clause specifies the record key that is the 
prime record key for the file. This prime record key 
provides an access path to records in an indexed file. 

An ALTERNATE RECORD KEY clause specifies a record key that 
is an alternate record key for the file. This alternate 
record key provides an alternate access path to records in 
an indexed file. 

The data description of data-name-2 and data-name-3 as well 
as their relative locations within a record must be the same 
as that used when the file was created. The number of 
alternate keys for the file must also be the same as that 
used when the file was created. 

The data items referenced by data-name-2 and data-name-3 
must each be defined as a data item of the category 
alphanumeric within a record description entry associated 
with that file-name. 
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Neither data-name-2 nor data-name-3 can describe an item 
whose size is variable. 

Data-name-3 cannot reference an item whose leftmost 
character position corresponds to the leftmost character 
position of an item referenced by data-name-2 or by any 
other data-name-3 associated with this file. 

Data-name-2 and data-name-3 may be qualified. 



The WITH DUPLICATES phrase specifies that the value of the 
associated alternate record key may be duplicated within any 
of the records in the file. If the WITH DUPLICATES phrase 
is not specified, the value of the associated alternate 
record key must not be duplicated among any of the records 
in the file. 



When the FILE STATUS clause is specified, a value will be 
moved by the operating system into the data item specified 
by data-name-4 after the execution of every statement that 
references that file either explicitly or implicitly. This 
value indicates the status of execution of the statement. 

Data-name-4 must be defined in the Data Division as a 
two-character data item of the category alphanumeric and 
must not be defined in the File Section. 
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The 1-0 CONTROL Paragraph 

The 1-0 CONTROL paragraph specifies the memory area which is 
to be shared by different files. 

FORMAT 
I-O-CONTROL. 



[? SAME AREA FOR file-name-1 [, f ile-name-2] . ..] . .. 

The I-O-CONTROL paragraph is optional. 

The SAME AREA clause specifies that two or more files are to 

use the same memory area during processing. The area being 
shared includes all storage area assigned to the files 
specified; therefore, it is not valid to have more than one 
of the files open at the same time. 

More than one SAME clause may be included in a program; 
however, a file-name must not appear in more than one SAME 
AREA clause. 

The files referenced in the SAME AREA clause need not all 
have the same organization or access. 
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DATA DI¥ISIOM 
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INTR0DUCTI01 



The Data Division describes the data that the object program 
is to accept as input, to manipulate, to create, or to 
produce as output. Data to be processed falls into three 
categories : 

That which is contained in files and enters or leaves 

the internal memory of the computer from a specified 
area or areas, 

That which is developed internally and placed into 
intermediate or working storage, or placed into 

specific format for output reporting purposes . 

Constants which are defined by the use. 

The Data Division, which is one of the required divisions in 
a program, is subdivided into three sections: 

The FILE SECTION defines the structure of data files. 

Each file is defined by a file description entry and 
one or more record descriptions. Record descriptions 

are written immediately following the file description 

entry. 

The WORKING -STORAGE SECTION describes records and 
noncontiguous data items which are not part of external 
data files but are developed and processed internally. 
It also describes data items whose values are assigned 
in the source program and do not change during the 
execution of the object program. 

The LINKAGE SECTION in a program is meaningful if and 
only if the object program is to function under the 
control of a CALL statement, and the CALL statement in 
the calling program contains a USING phrase. 

The Linkage Section is used for describing data that is 
available through the calling program but is to be 
referred to in both the calling and the called program. 
No space is allocated in the program for data items 
referenced by data-names in the Linkage Section of that 
program. Procedure Division references to these data 
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Items are resolved at object time by equating the 
reference in the called program to the location used in 
the calling program. In the case of index-names , no 
such correspondence is established. Index-names in the 
called and calling program always refer to separate 
indices . 

Data items defined in the Linkage Section of the called 
program may be referenced within the Procedure Division 
of the called program only if they are specified as 
operands of the USING phrase of the Procedure Division 
header or are subordinate to such operands, and the 
object program is under the control of a CALL statement 
that specifies a USING phrase. 



FORMAT 

DATA DIFIS10N* 



[ FILE SECTION. 

[ file-description-entry 
[record-description-entry] ...] .. 

[ WORKING-STORAGE SECTION . 

[ 77™level-description~entry J . . . ] 

[record-description-entry ] 

[ LINKAGE SECTION, 

[77-level-description-entry] . . . ] ] 
[record-description-entry ] 
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FILE SECTION 



The File Section header is followed by a file description 
entry consisting of a level indicator (FD), a file-name and 
3 series of independent clauses. The FD clauses specify the 
f : :z2 of the logical and physical records, the presence or 
absence of label records, the value of label items, and the 
names of the data records which comprise the file. The 
entry itself is terminated by a period. 

In a COBOL program the file description entry (FD) 
represents the highest level or organization in the File 

Section. 



FORMAT 

FILE SECTION. 



[ file-description-entry 
[record-description-entry] . . . ] 
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The File Description Entry 



The File Description furnishes information concerning the 
physical structure, identification, and record name 
pertaining to a given file. 



FORMAT 

FD f ile-name 

[; BLOCK CONTAINS [integer-1 TO] integer-2 { RECORDS }] 

{ CHARACTERS } 

[; RECQRD CONTAIN [integer-3 TO] integer-4 CHARACTERS] 

? LABEL { RECORD IS } { STANDARD } 

{ RECORDS ARE } { OMITTED } 

E?VALUE OF LABEL IS Eliteral-1]] 



[; DATA { RECORD IS } data-name-1 [,<fete-name-23... ] . 

{RECORDS ARE } 



The level indicator FD identifies the beginning of a file 
description and must precede the file-name. 

The clauses which follow the name of the file are optional 
in many cases, and their order of appearance is not 
significant. 

One or more record description entries must followed the 
file description entry. 

A file description entry must end with a period separator. 
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The BLOCK CONTAINS Clause 



The BLOCK CONTAINS clause specifies the size of a physical 

record. 



FORMAT 

BLOCK CONTAINS [integer-1 TO] integer-2 { RECORDS } 

{ CHARACTERS } 

This clause is required except when: 

A physical record contains only one complete logical 
record. 

The device assigned to the file has only one physical 
record size. 

The device assigned to the file has a standard record 
size, although the device may have more than one 
physical record size. In this case, the absence of 
this clause denotes the standard physical record size. 

The size of the physical record may be stated in terms of 
RECORDS, unless one of the following situations exist, in 
which case the RECORDS phrase must not be used: 

In mass storage files where logical records may extend 
across physical records. 

The physical record contains padding. 

Logical records are grouped in such a manner that an 
inaccurate physical record size would be implied. 

When the word CHARACTERS is specified, the physical record 
size is specified in terms of the number of character 
positions required to store the physical record, regardless 
of the types of characters used to represent the items 
within the physical record. 

If only integer-2 is shown, it represents the exact size of 
the physical record. If integer-1 and integer-2 are shown, 
they refer to the minimum and maximum size of the physical 
record, respectively. 



Radio /hack 

- 59 - 



RECmD^CQj TAI^ a XlaMse TRS . eo s __M^^^^lMM12e, 



The RECORD CONTAINS Ciaose 



The RECORD CONTAINS clause specifies the size of the data 

records. 



FORMAT 

RECORD CONTAINS [ integer-1 TO] integer-2 CHARACTERS 

The size of each data record is completely defined with the 
record description entry, therefore this clause is never 
required. When present, however, the following notes apply: 

Integer-2 may not be used by itself unless all the data 
records in the file have the same size. In this case 
integer-2 represents the exact number of characters in 

the data record. 

If integer-1 and integer-2 are both shown, they refer 
to the minimum number of characters in the smallest 
size data record and the maximum number of characters 
in the largest size data record, respectively. 

The size is specified in terms of the number of 
character positions required to store the logical 
record, regardless of the types of characters used to 
represent the items within the logical record. The 
size of a record is determined by the sum of the number 
of characters in all fixed length elementary items plus 
any filler characters generated between elementary 
items because of the SYNCHRONIZED clause. 
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The LABEL RECORD Clause 



The LABEL RECORD clause specifies whether labels are 
present. 



FORMAT 



LABEL { RECORD IS } { STANDARD } 
{RECORDS ARE } {OMITTED } 



This clause is required in every file description entry. 

STANDARD specifies that labels exist for the file or the 
device to which the file is assigned and the labels conform 
to the operating system specification. STANDARD must be 
specified for files assigned to a RANDOM device. 

OMITTED specifies that no explicit labels exist for the file 
or the device to which the file is assigned. 



The VALUE OF Clause 



The VALUE OF clause particularizes the description of an 
item in the label records associated with a file. 



FORMAT 

VALUE OF LABEL IS literal-1 

This clause is treated as commentary. 

This clause must not be specified if OMITTED is specified in 
the LABEL RECORDS clause. 
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The DATA RECORDS Clause 



The DATA RECORDS clause serves only as documentation for the 
names of data records with their associated file. 



FORMAT 



DATA { RECORD IS } data-name-1 [ ,data-name-2] . . . 
{RECORDS ARE } 



Data-name-1 and data-name-2 are the names of data records 
and must have 01 level-number record descriptions, with the 
same name, associated with them. 

The presence of more than one data-name indicates that the 
file contains more than one type of data record. These 
records may be of differing sizes, different formats, etc. 
The order in which they are listed is not significant. 

Conceptually, all data records within a file share the same 
area. This is in no way altered by the presence of more than 
one type of data record within the file. 
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WORKING-STORAGE SECTION 



The Working-Storage Section is composed of the section 
header, followed by data description entries for 77 level 
description entries and/or record description entries. 

The data-name of a 01-level data description entry in the 
Working-Storage Section must be unique since it cannot be 
qualified. Subordinate data-names need not be unique if 
they can be made unique by qualification. 



FORMAT 

WORKING-STORAGE SECTION. 



[ 77-level-description-entry ] 
[record-descriptibn-entry ] 



LINKAGE SECTION 



The structure of the Linkage Section is the same as for the 
Working-Storage Section, beginning with a section header, 
followed by data description entries for noncontiguous data 
items and/or record description entries. 

Each Linkage Section record-name and noncontiguous item name 
must be unique within the called program since it cannot be 
qualified. 



FORMAT 

LINKAGE SECTION. 



[ 77-level-description-entry] 
[record-description-entry ] 
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RECORD DESCRIPTION ENTRY 



A record description entry consists of a set of data 
description entries which describe the characteristics of a 
particular record. Each data description entry consists of 
a level-number followed by a data-name and a series of 
independent clauses, as required. 



FORMAT 
{data-description-entry} . . . 

Level-Numbers 



The first data description of a record must have a 
level-number of 01 or 1, and must start in area A of a 
source line. 

Each data description entry can be subdivided into multiple 
data description entries , each having the same level-number; 
which must be greater than the level-number of the 
subdivided entry, but less than 50. Level-numbers do not 
necessarily have to be successive. Thus, a record is a 
hierarch of data description entries. 



Elementary Items 

Any data description entry which is not further subdivided 
is called an elementary item A record itself may be an 
elementary item, consisting of a single level 01 data 
description entry. A subdivided data description entry with 
its subdivisions is called a group and is non-elementary. 
Therefore, a group includes all group and elementary items 
following it until a level-number less than or equal to the 
level-number of that group is encountered. 

Note that certain clauses of the data description entry may 
occur only in elementary items. They may not occur in 
01-level entry as they may affect the subdivisions of that 
entry. An elementary item must have either a PICTURE clause 
or INDEX usage; it may not have both. 
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77 LEVEL DESCRIPTION ENTRY 



In the Working-Storage and Linkage Sections, a special 
level-number of 77 can be used in data description entries 
which are not subdivisions of other items, and are not 
themselves subdivided. These data description entries 
specify noncontiguous data items. Such a data description 
entry is elementary. 

A 77 level description entry must contain a data name and 
either the PICTURE clause or the USAGE IS INDEX clause, but 
cannot contain an OCCURS clause. Other clauses are optional 
and can be used to complete the description of the item if 
necessary. 



FORMAT 
data-description-entry 
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THE DATA DESCRIPTION ENTRY 



A data description entry specifies the characteristics of a 
particular item of data. 



FORMAT 1 

level-number {data-name-1} 

{ FILLER } 

[; REDEFINES data-name-2] 

[; {PICTURE} IS character-string] 
{ PIC } 

E; [ USAGE IS] { COMPUTATIONAL 

{ COMP 

{ COMPUTATIONAL-! 
{ COMP-1 
{C0MPUTATI0NAL-3 



{ COMP-3 
{ DISPLAY 
{ INDEX 



] 



[; [ SIGN IS} { TRAILING } [ SEPARATE CHARACTER]] 

[ ; { OCCURS { integer-1 TIMES 

{integer-1 TO integer-2 TIMES DEPENDING CN data-name-3} 

[ INDEXED BY index-name-1 [ , index-name-2] ] ] 

[; { SYNCHRONIZED } [ LEFT ] 
{ SYNC } [RIGHT]] 

[; { SYNCHRONIZED } [ LEFT ] 
{ SYNC } [RIGHT]] 

It { JUSTIFIED } RIGHT] 
{ JUST } 

[ ? BLANK WHEN ZERO ] 

[? VALUE IS literal] 



Radio /hack 

- 66 - 



RM/COBOL Language TRS-8D ® Data Description Entry 



FORMAT 2 



66 data-name-1; RENAMES data-name-2 [{ THROUGH } data-name-3]. 

{THRU } 



FORMAT 3 

88 condition-name; { VALUE IS } literal-1 [{ THROUGH } literaL-2] 

{ VALUES ARE } { THRU } 

[,literal-3 [{ THROUGH } literal-4]] .... 
{ THRU } 

The clauses may be written in any order with two exceptions: 

the data-name-1 or FILLER clause must immediately 
follow the level-number i 

the REDEFINES clause, when used, must immediately 
follow the data-name-1 clause. 

The PICTURE clause must be specified for every elementary 
item except an index data item, in which case use of this 
clause is prohibited. 

The words THRU and THROUGH are equivalent. 

The clauses SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN 
ZERO, must not be specified except for an elementary data 
item. 
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Format 3 is used for each condition-name. Each 
condition-name requires a separate entry with level-number 
88. Format 3 contains the name of the condition and the 
value, values, or range of values associated with the 
condition-name. The condition-name entries for a 
particular conditional variable must follow the entry 
describing the item with which the condition-name is 
associated. A condition-name can be associated with any 
data description entry which contains a level-number except 
the following: 

Another condition-name. 

A group containing items with descriptions including 
JUSTIFIED, SYNCHRONIZED or USAGE (other than USAGE IS 
DISPLAY) . 

An index data item. 

A level 66 item. 

Each data description entry must end with a period 
separator. 



RadiG /haek 

- 68 - 



RM/COBQL Language TDQ.Rn ® Level— Number 



The Level -Number 



The level-number shows the hierarchy of data within a 
logical record. In addition, it is used to identify entries 
for working storage items, linkage items, condition-names 
and the RENAMES clause. 



FORMAT 
level-number 



A level-number is required as the first element in each data 
description entry. 

Data description entries subordinate to an FD entry must 
have level-numbers with the values 01 through 49, 66 or 88. 

Data description entries in the Working-Storage Section and 
Linkage Section must have level-numbers with the values 01 
through 49, 66, 77 or 88. 

The level-number 01 identifies the first entry in each 
record description. 

Level-number 66 is assigned to identify RENAMES entries. 

Level-number 77 is assigned to identify noncontiguous 
working storage data items and noncontiguous linkage data 
items . 

Level-number 88 is assigned to identify condition-names 
associated with a conditional variable. 

Multiple level 01 entries subordinate to any given level 
indicator FD, represent implicit redefinitions of the same 
area. 



Radio /hack 

- 69 - 



Data-name/PILLER c lause jpc.8n € RM /COBO L Language 



The Data- name or FILLER Clause 



A data-name specifies the name of the data being described. 
The word FILLER specifies an elementary item of the logical 
record that cannot be referred to explicity. 



FORMAT 



{data -name} 
{FILLER } 



A data-name or the key word FILLER must be the first word 

following the level -number in each data description entry. 



The key word FILLER may be used to name an elementary item 
in a record. Under no circumstances can a FILLER item be 
referred to explicitly. However , the key word FILLER may be 

used as a conditional variable because such use does not 
require explicit reference to the FILLER item, but to its 
value. 

The key word FILLER may not be used in data description 
entries with a 1, 01, 11, or 88 level-number. 
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The REDEFINES Clause 



The REDEFINES clause allows the same computer storge area to 
be described by different data description entries. 



FORMAT 

level-number data-name-1; REDEFINES data-name- 2 

NOTE: Level -number , data-name-1 and the semicolon are 
shown in the above format to improve clarity. 
Level -number and data-name-1 are not part of the 
REDEFINES clause. 

The REDEFINES clause, when specified,, must immediately 
follow data-name-1. 

The level-numbers of data-name-1 and data-name-2 must be 
identical but must not be 66 or 88. 

This clause must not be used in level 01 entries in the File 
Section. 

The data description entry for data-name-2 cannot contain a 
REDEFINES clause. Data-name-2 may be subordinate to an 
entry which contains a REDEFINES clause. The data 
description entry for data-name-2 cannot contain an OCCURS 
clause. However, data-name-2 may be subordiate to an item 
whose data description entry contains an OCCURS clause. In 
this case, the reference to data-name-2 in the REDEFINES 
clause may not be subscripted or indexed. Neither the 
original definition nor the redefinition can include an item 
whose size is variable as defined in the OCCURS clause. 

No entry having a level-number numerically lower than the 
level-number of data-name-2 and data-name-1 may occur 
between the data description entries of data-name-2 and 
data-name-1. 

Redefinition starts at data-name-2 and ends when a 
level-number less than or equal to that of data-name-2 is 
encountered. 
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When the level-number of data-name-1 is other than 01, it 
must specify the same number of character positions that the 
data item referenced by data-name-2 contains. It is 
important to observe that the REDEFINES clause specifies the 
redefinition of a storage area, not of the data items 
occupying the area. 

Multiple redefinitions of the same character positions are 
permitted. The entries giving the new descriptions of the 
character positions must follow the entries defining the 
area being redefined without intervening entries that define 
new character positions. Multiple redefinitions of the same 
character positions must all use the data-name of the entry 
that originally defined the area. 

The entries giving the new description of the character 
positions must not contain any VALUE clauses except in 
condition-name entries. 

Multiple level 01 entries subordiante to any given level 
indicator represent implicit redefinitions of the same area. 
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The PICTURE Clause 



The PICTURE clause describes the general characteristics and 

editing requirements of an elementary item. 



FORMAT 

{ PICTURE } IS character-string 
( PIC } 

A PICTURE clause can be specified only at the elementary 
item level. 

A character-string consists of certain allowable 
combinations of characters in the COBOL character set used 
as symbols. The allowable combinations determine the 
category of the elementary item. 

The maximum number of characters allowed in the 
character-string is 30. 

The PICTURE clause must be specified for every elementary 
item except an index data item, in which case use of this 

clause is prohibited. 

PIC is an abbreviation for PICTURE. 

There are five categories of data that can be described with 
a PICTURE clauses 

alphabetic 
numeric 
alphanumeric 
alphanumeric edited 
numeric edited 

To define an item as alphabetic: 

Its PICTURE character-string can only contain the 
symbols 'A 1 , and/or 'B f . 

Its contents when represented in standard data format 
must be any combination of the twenty-six (26) letters 
of the Roman alphabet and the space from the COBOL 

character set. 
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To define an item as numeric: 

Its PICTURE character-string can only contain the 
symbols '9*, r P ! , 'S 1 , and 'V. The number of digit 
positions that can be described by the PICTURE 
character-string must range from 1 to 18 inclusive? and 

If unsigned, its contents when represented in standard 
data format must be a combination of the Arabic 
numerals »0», '1», »2», , 3 , ,'4« r '5', '6', » 7», »8', 
' 9'; if signed, the item may also contain a ' + ', '-'* 
or other representation of an operational sign. 

To define an item as alphanumeric: 

Its PICTURE character-string is restricted to certain 
combinations of the symbol 'A', 'X 1 , '9', and the item 
is treated as if the character-string contained all 
X's. A PICTURE character-string which contains all A's 
or all 9's does not define an alphanumeric item; and 

Its contents, when represented in standard data format, 
are allowable characters in the computer's character 
set. 

To define an item as alphanumeric edited: 

Its PICTURE character-string is restricted to certain 
combinations of the following symbols: 'A 1 , 'X 1 , '9', 
•B', '0', and '/* (stroke); 

The character-string must contain at least one ' B' and 
at least one 'X' or at least one '0' (zero) and at 
least one 'X' or at least one ' /' (stroke) and at least 
one ' X 1 ; or 

The character-string must contain at least one '0 1 
(zero) and at least one 'A' or at least one '/' 
(stroke) and at least one 'A'; and 

The contents when represented in standard data format 
are allowable characters in the computer's character 

set. 

To define an item as numeric edited: 
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Its PICTURE character-string is restricted to certain 
combinations of the following symbols: 'B 1 , '/' 
(stroke), «P», «V\ «Z', >0\ '9', ',', *. % , ■*', '-*, 
' + ', 'CR f r 'DB', and the currency symbol. The 
allowable combinations are determined from the order of 
precedence of symbols and the editing rules; and 

The number of digit positions that can be represented 
in the PICTURE character-string must range from 1 to 18 
inclusive? and 

The character-string must contain at least one *$* , 
«B ! , »/* (stroke), ■Z', »**, « + ', ' ,', * .», »-', *CR' r 
'DB 1 , or currency symbol. 

The contents of the character positions of these 
symbols that are allowed to represent a digit in 
standard data format, must be one of the numerals. 

The size of an elementary item, where size means the number 
of character positions occupied by the elementary item in 
standard data format, is determined by the number of 
allowable symbols that represent character positions. An 
integer which is enclosed in parentheses following the 
symbols 'A', ',', 'X«, '9', 'P», *Z', •*', »B ! , '/' 
(stroke), or '#', '+', ' -'/ or the currency symbol indicates 
the number of consecutive occurrences of the symbol. Note 
that the following symbols may appear only once in a given 
PICTURE: 'S 1 , 'V 1 , '.', ' CR ' , and ' DB ! . 

The functions of the symbols used to describe an elementary 
item are explained as follows: 

Each 'A' in the character-string represents a character 
position which can contain only a letter of the 
alphabet or a space. 

Each 'B 1 in the character-string represents a character 
position into which the space character will be 
inserted. 

Each 'P' indicates an assumed decimal scaling position 
and is used to specify the location of an assumed 
decimal point when the point is not within the number 
that appears in the data item. The scaling position 
character ' P' is not counted in the size of the data 
item. Scaling position characters are counted in 
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determining the maximum number of digit positions (18) 
in numeric edited items or numeric items. The scaling 
position cha.raot.er * P' can appear only to the left or 
right as a continuous string of ' P's within a PICTURE 
description; since the scaling position character ' P 1 
implies an assumed decimal point (to the left of 'P's 
if 'P's are leftmost PICTURE characters and to the 
right if 'P's are rightmost PICTURE characters), the 
assumed decimal point symbol 'V 8 is redundant as either 
the leftmost or rightmost character within such a 
PICTURE description. The character ' P' and the 
insertion character ' . f (period) cannot both occur in 
the same PICTURE character-string. If, in any 
operation involving conversion of data from one form of 
internal representation to another , the data item being 
converted is described with the PICTURE character 'P', 
each digit position described by a 'P' is considered to 
contain the value zero, and the size of the data item 
is considered to include the digit positions so 
described. 

The letter ' S' is used in a character-string to 
indicate the presence, but neither the representation 
nor, necessarily, the position of an operational sign? 
it must be written as the leftmost character in the 
PICTURE. The * S 1 is counted in determining the size 
(in terms of standard data format characters) of 
elementary items having DISPLAY or COMPUTATIONAL usage. 

The 'V 1 is used in a character-string to indicate the 
location of the assumed decimal point and may only 
appear once in a character-sting. The 'V does not 
represent a character position and therefore is not 
counted in the size of the elementary item. When the 
assumed decimal point is to the right of the rightmost 
symbol in the string the ' V is redundant. 

Each 'X' in the character-string is used to represent a 
character position which contains any allowable 
character from the computer's character set. 

Each ' Z' in a character-string may only be used to 
represent the leftmost leading numeric character 
positions which will be replaced by a space character 
when the contents of that character position is zero. 
Each 'Z ! is counted in the size of the item. 
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Each '9' in the character-string represents a character 
position which contains a numeral and is counted in the 

size of the item. 

Each *0' (zero) in the character-string represents a 
character position into which the numeral zero will be 
inserted. The '0' is counted in the size of the item. 

Each '/' (stroke) in the character-string represents a 
character position into which the stroke character will 
be inserted. The '/ f (stroke) is counted in the size 
of the item. 

Each ',' (comma) in the character-string represents a 
character position into which the character ',' will be 
inserted. This character position is counted in the 
size of the item. The insertion character * , ' must not 
be the last character in the PICTURE character-string. 

When the character '.' (period) appears in the 
character-string it is an editing symbol which 
represents the decimal point for alignment purposes and 
in addition, represents a character position into which 
the character '.' will be inserted. The character '.* 
is counted in the size of the item. For a given 
program the functions of the period and comma are 
exchanged if the clause DECIMAL-POINT IS COMMA is 
stated in the SPECIAL-NAMES paragraph. In this 
exchange the rules for the period apply to the comma 
and the rules for the comma apply to the period 
wherever they appear in a PICTURE clause. The 
insertion character ' . ' must not be the last character 
in the PICTURE character-string. 

+, -, CR, DB. These symbols are used as editing sign 
control symbols. When used, they represent the 
character position into which the editing sign control 
symbol will be placed. The symbols are mutually 
exclusive in any one character-string and each 
character used in the symbol is counted in determining 
the size of the data item. 

Each '*' (asterisk) in the character-string represents 
a leading numeric character position into which an 
asterisk will be placed when the contents of that 
position is zero. Each '*' is counted in the size of 
the item. 
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The asterisk when used as the zero suppression symbol 
and the clause BLANK WHEN ZERO may appear in the same 
entry. 

The currency symbol in the character-string represents 
a character position into which a currency symbol is to 
be placed. The currency symbol in a character-string 
is represented by either the currency sign or by the 
single character specified in the CURRENCY SIGN IS 
clause in the SPECIAL-NAMES paragraph. The currency 
symbol is counted in the size of the item. 

There are two general methods of performing editing in the 
PICTURE clause, either by insertion or by suppression and 
replacement. There are four types of insertion editing 
available: 

Simple insertion 
Special insertion 
Fixed insertion 
Floating insertion 

There are two types of suppression and replacement editing: 

Zero suppression and replacement with spaces 
Zero suppression and replacement with asterisks 

The type of editing which may be performed upon an item is 
dependent upon the category to which the item belongs. The 
following table specifies which type of editing may be 
performed upon a given category: 
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CATEGORY 


TYPE OF EDITING | 


r\_Lp Ha. DSTI. 1 C 


Simple insertion 'B' only | 


Numeric 


None | 


Alphanumeric 


None | 


Alphanumeric 


Simple insertion '0', 'B 1 , 


Edited 


and ' / ' ( stroke ) 


Numeric 


All, subject to rules below 


Edited 





Floating insertion editing and editing by zero suppression 
and replacement are mutually exclusive in a PICTURE clause 
Only one type of replacement may be used with zero 
suppression in a PICTURE clause. 
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Simple Insertion Editing 



The ' , l (comma), 'B" ( space ), l 0\ (zero), and '/' (stroke) 
are used as the insertion characters. The insertion 

characters are counted in the size of the item and represent 
the position in the item into which the character will be 

inserted . 



Special Insertion Editing 



The '.' (period) is used as the insertion character. In 
addition to being an insertion character it also represents 
the decimal point for alignment purposes. The insertion 
character used for the actual decimal point is counted in 
the size of the item. The use of the assumed decimal point, 
represented by the symbol 'V and the actual decimal point, 
represented by the insertion character, in the same PICTURE 
character-string is disallowed. The result of special 
insertion editing is the appearance of the insertion 
character in the item in the same position as shown in the 
character -string. 



Fixed Insertion Editing 



The currency symbol and the editing sign control symbols, 
'+', '-', 'CR,, 'DB 1 , are the insertion characters. Only 
one currency symbol and only one of the editing sign control 
symbols can be used in a given PICTURE character-string. 
When the symbols 'CR' or 'DB 1 are used they represent two 
character positions in determining the size of the item and 
they must represent the rightmost character positions that 
are counted in the size of the item. 

The symbol '+' or '-', when used, must be either the 
leftmost or rightmost character position to be counted in 
the size of the item. 

The currency symbol must be the leftmost character position 
to be counted in the size of the item except that it can be 
preceded by either a ' + ' or a '-' symbol. 
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Fixed insertion editing results in the insertion character 
occupying the same character position in the edited item as 
it occupied in the PICTURE character-string. 

Editing sign control symbols produce the following results 
depending upon the value of the data item: 



EDITING SYMBOL IN 
PICTURE 
CHARACTER-STRING 


RESULT 




DATA ITEM 
POSITIVE OR ZERO 


DATA ITEM 
NEGATIVE 


+ 

CR 

DB 


+ 

space 
2 spaces 

2 spaces 


CR 
DB 



Floating Insertion Editing 



The currency symbol and editing sign control symbols , '+' or 



« _ i 



are the floating insertion characters and as such are 



mutually exclusive in a given PICTURE character-string. 

Floating insertion editing is indicated in a PICTURE 
character-string by using a string of at least two of the 
floating insertion characters. This string of floating 
insertion characters may contain any of the fixed insertion 
symbols or have fixed insertion characters immediately to 
the right of this string. These simple insertion characters 
are part of the floating string. 

The leftmost character of the floating insertion string 
represents the leftmost limit of the floating symbol in the 
data item. The rightmost character of the floating string 
represents the rightmost limit of the floating symbols in 
the data items. 

The second floating character from the left represents the 
leftmost limit of the numeric data that can be stored in the 
data item. Nonzero numeric data may replace all the 
characters at or to the right of this limit. 
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In a PICTURE character-string, there are only two ways of 
representing floating insertion editing. One way is to 
represent any or all of the leading numeric character 
positions on the left of the decimal point by the insertion 
character. The other way is to represent all of the numeric 
character positions in the PICTURE character-string by the 
insertion character. 

If the insertion characters are only to the left of the 
decimal point in the PICTURE character-string, the result is 
that a single floating insertion character will be placed 
into the character position immediately preceding either the 
decimal point or the first nonzero digit in the data 
represented by the insertion symbol string, whichever is 
farther to the left in the PICTURE character-string. The 
character positions preceding the insertion character are 
replaced with spaces. 

If all numeric character positions in the PICTURE 
character-string are represented by the insertion character, 
the result depends upon the value of the data. If the value 
is zero the entire data item will contain spaces. If the 
value is not zero, the result is the same as when the 
insertion character is only to the left of the decimal 
point. 

To avoid truncation, the minimum size of the PICTURE 
character-string for the receiving data item must be the 
number of characters in the sending data item, plus the 
number of non-floating insertion characters being edited 
into the receiving data item, plus one for the floating 
insertion character. 



Zero Suppression Editing 



The suppression of leading zeroes in numeric character 
positions is indicated by the use of the alphabetic 
character ' Z' or the character '*' (asterisk) as suppression 
symbols in a PICTURE character-string. These symbols are 
mutually exclusive in a given PICTURE character-string. Each 
suppression symbol is counted in determining the size of the 
item. If ' Z 1 is used the replacement character will be the 
space and if the asterisk is used, the replacement character 
will be '*' . 
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In a PICTURE character-string, there are only two ways of 
representing zero suppression. One way is to represent any 
or all of the leading numeric character positions to the 
left of the decimal point by suppression symbols. The other 
way is to represent all of the numeric character positions 
in the PICTURE character-string by suppression symbols. 

If the suppression symbols appear only to the left of the 
decimal point, any leading zero in the data which 
corresponds to a symbol in the string is replaced by the 
replacement character. Suppression terminates at the first 
nonzero digit in the data represented by the suppression 
symbol string or at the decimal point, whichever is 
encountered first. 

If all numeric character positions in the PICTURE 
character-string are represented by suppression symbols and 
the value of the data is not zero the result is the same as 
if the suppression characters were only to the left of the 
decimal point. If the value is zero and the suppression 
symbol is ' Z', the entire data item will be spaces. If the 
value is zero and the suppression symbol is '*', the data 
item will be all '*' except for the actual decimal point. 



The symbols '+', '-', '*', ' Z", and the currency symbol, 
when used as floating replacement characters, are mutually 
exclusive within a given character-string. 

The picture precedence chart show the order of precedence 
when using characters as symbols in a character-string. An 
•X 1 at an intersection indicates that the symbol ( s ) at the 
top of the column may precede, in a given character-string, 
the symbol(s) at the left of the row. Arguments appearing 
in braces indicate that the symbols are mutually exclusive, 
the currency symbol is indicated by the symbol ' cs ' . 

At least one of the symbols *A' , 'X', ' Z', '9', or '** or at 
least two of the symbols '+', '-', or 'cs 1 must be present 
in a PICTURE string. 
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Nonfloating insertion symbol '+' and ' - 1 , floating insertion 
symbols ' Z' , • **, '+', ' -', and 'cs', and other symbol ' P' 
appear twice in the PICTURE character precedence chart. The 
leftmost column and uppermost row for each symbol represent 
its use to the left of the decimal point position. The 
second appearance of the symbol in the chart represents its 
use to the right of the decimal point position. 
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The USAGE Clause 



The USAGE clause specifies the format of a data item in the 

computer storage. 



FORMAT 

[OSAGE IS ] 



{ COMPUTATIONAL 

{ COMP 

{ COMPUTATIONAL-! 

{ COMP-1 

{ COMPUTATIQNAL-3 

{ COMP- 3 

{ DISPLAY 

{ INDEX 



This clause specifies the manner in which a data item is 
represented in the storage of a computer. It does not 
affect the use of the data item, although the specifications 
for some statements in the Procedure Division may restrict 

the USAGE clause of the operands referenced. 

The USAGE clause can be written at any level. If the USAGE 
clause is written at a group level, it applies to each 
elementary item in the group. The USAGE clause of an 
elementary item cannot contradict the USAGE clause of a 
group to which the item belongs. 

If the USAGE clause is not specified for an elementary item, 
or for any group to which the item belongs, the usage is 
implicitly DISPLAY. 

A COMPUTATIONAL ( COMPUTATIONAL - 1 , COMPUTATIONAL- 3 ) item 
represents a value to be used in computations and must be 
numeric. If a group is described as COMPUTATIONAL, then the 
elementary items in the group are COMPUTATIONAL. The group 
itself is not COMPUTATIONAL (cannot be used in 
computations . ) 

The format of a COMPUTATIONAL item is one decimal digit per 
character position (hexadecimal 00-09). If an ' S* appears 
in the PICTURE character-string, a trailing byte contains 
the sign with > 2B being generated for positive and > 2D 
being generated for negative. COMPUTATIONAL items will be 
treated as negative if the sign character is > 2D; otherwise 
they will be considered positive. 
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The format of a CGMPUTATIONAL-1 item (abbreviated COMP-1) is 
16 bit two's complement signed r nary, independent of the 
number of nines or appearance of 'S f in the PICTURE 
character-string. The number of nines is significant when 
the value is converted to decimal during data manipulation. 
The value of a C0MPUTATI0NAL-1 item ranges between -32768 
and 32767. 

The format of a COMPUTATIONAL -3 item is two decimal digits 
per character position, 

The PICTURE character-string of a COMPUTATIONAL, 
COMPUTATIONAL-1 or CGMPUTATXONAL-3 item can contain only 
'9's, the operational sign character ' S', the implied 
decimal point character 'V', one or more 'P's. Since a 
COMPUTATIONAL-1 item must have zero scale it cannot contain 
any f P r s in its PICTURE character string and if it has a 'V 
in its PICTURE character-string the '¥' must be the 
rightmost character. 

The USAGE IS DISPLAY clause indicates that the format of the 
data is ASCII. 

An elementary item described with the USAGE IS INDEX clause 

is called an index data item and contains a value which must 
correspond to an occurence number of a table element. If a 
group item is described with the USAGE IS INDEX clause the 
elementary items in the group are all index data but the 
group item name cannot be used in the SET statement or in a 
relation condition. 

An index data item can be referenced explicitly only in a 
SET statement or a relation condition. 

The initial value of an index item is undefined. 

The SYNCHRONIZED, JUSTIFIED, PICTURE, VALUE and BLANK WHEN 
ZERO clauses cannot be used to describe group or elementary 
items described with the USAGE IS INDEX clause. 

An index data item can be part of a group which is referred 
to in a MOVE or input-output statement , in which case no 
conversion will take place. 

The external and internal format of an index data item is 
the same as a COMPUTATIONAL-1 item. 
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The SIGN Clause 



The SIGN clause specifies the position and the mode of 
representation of the operational sign when it is necessary 
to describe these properties explicitly. 



FORMAT 

[SIGN IS] {TRAILING} [SEPARATE CHARACTER] 



The optional SIGN clause, if present, specifies the position 
and the mode of representation of the operational sign for 
the numeric data description entry to which it applies, or 
for each numeric data description entry subordinate to the 
group to which it applies. The SIGN clause applies only to 
numeric data description entries whose PICTURE contains the 
character ' S * . 

The operational sign will be presumed to be the trailing 
character position of the elementary numeric data item? this 
character position is not a digit position. 

The letter 'S' in a PICTURE character-string is counted in 
determining the size of the item (in terms of standard data 
format characters). 

The operational signs for positive and negative are the 
standard data format characters '+' and '-', respectively. 

The numeric data description entries to which the SIGN 
clause applies must be described as usage is DISPLAY. 

At most one SIGN clause may apply to any given numeric data 
description entry. 
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The OCCURS Clause 



The OCCURS clause eliminates the need for separate entries 
for repeated data items and supplies information required 
for the application of subscripts or indices. 



FORMAT 1 

OCCURS integer-1 TIMES 

[INDEXED BY index-name-1 [,index-name-2] ...3 



FORMAT 2 

OCCURS integer-1 TO integer-2 TIMES DEPENDING ON data 
[INDEXED BY index-name-1 [ , index-name-2] . . . ] 



The OCCURS clause is used in defining tables and other 
homogeneous sets of repeated data items. Whenever the 
OCCURS clause is used, the data-name which is the subject of 
this entry must be either subscripted or indexed whenever it 
is referred to in a statement. Further, if the subject of 
this entry is the name of a group item, then all data-names 
belong to the group must be subscripted or indexed whenever 
they are used as operands , except as the object of a 
REDEFINES clause. 

The OCCURS clause cannot be specified in a data description 
entry that: 

Has an 01, 66, 77, or an 88 level-number. 

Describes an item whose size is variable. The size of 
an item is variable if the data description of any 
subordinate item contains Format 2 or the OCCURS 
clause. 

Except for the OCCURS clause itself, all data description 
clauses associated with an item whose description includes 
an OCCURS clause apply to each occurrence of the item 
described. 

The number of occurrences of the subject entry is defined as 
follows : 
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In Format 1, the value of integer-1 represents the 
exact number of occurrences. 

In Format 2, the current value of the data item 
referenced by data-name-1 represents the number of 
occurrences . 

This format specifies that the subject of this 
entry has a variable number of occurrences. The 
value of integer-2 represents the maximum number 
of occurrences and the value of integer-1 
represents the minimum number of occurences. This 
does not imply that the length of the subject of 
the entry is variable, but that the number of 
occurrences is variable. 

The value of the data item referenced by 
data-name-1 must fall within the range integer-1 
through integer-2. Reducing the value of the data 
item referenced by data-name-1 makes the contents 
of data items, whose occurrence numbers now exceed 
the value of the data item referenced by 
data-name-1, unpredictable. 

Where both integer-1 and integer-2 are used, the 
value of integer-1 must be less than the value of 
integer-2. 

The data description of data-name-1 must describe 
a positive integer. Data-name-1 may be qualified. 

A data description entry that contains Format 2 of 
the OCCURS clause may only be followed, within 
that record description, by data description 
entries which are subordinate to it. 

When a group item, having subordinate to it an entry that 
specifies Format 2 of the OCCURS clause, is referenced, only 
that part of the table area that is specified by the value 
of data-name-1 will be used in the operation. 

An INDEXED BY phrase is required if the subject of this 
entry, or an entry subordinate to this entry, is to be 
referred to by indexing. The index-name identified by this 
clause is not defined elsewhere since its allocation and 
format are dependent on the hardware, and not being data, 
cannot be associated with any data hierarchy. 
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The SYNCHRONIZED Clause 



The SYNCHRONIZED clause specifies the alignment of an 
elementary item on an even byte boundary. 



FORMAT 

{ SYNCHRONIZED } [ LEFT ] 
{SYNC } [RIGHT] 



This clause specifies that the subject data item is to be 
aligned in the computer such that no other data item 
occupies any of the character positions between the leftmost 
and rightmost natural boundaries delimiting this data item. 
If the number of character positions required to store this 
data item is less than the number of character positions 
between those natural boundaries, the unused character 
positions (or portions thereof) must not be used for any 
other data item. Such unused character positions, however, 
are include in: 

The size of any group item(s) to which the elementary 
item belongs; and 

The character positions redefined when this data item 
is the object of a REDEFINES clause. 

SYNCHRONIZED LEFT specifies that the elementary item is to 
be positioned such that it will begin at the left character 
position of the next available even byte. If the data item 
contains an odd number of bytes, one trailing byte of FILLER 
is implied. 

SYNCHRONIZED not followed by either RIGHT or LEFT is 
equivalent to the clause SYNCHRONIZED LEFT. 

SYNC is an abbreviation for SYNCHRONIZED. 

This clause may only appear with an elementary item. 

SYNCHRONIZED RIGHT specifies that the elementary item is to 
be positioned such that it will terminate on the right 
character position of an integral even byte boundary. If 
the data item contains an odd number of bytes, a leading 
byte of FILLER is implied. 
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Whenever a SYNCHRONIZED item is referenced in the source 
program, the original size of the item, as shown in the 
PICTURE clause, is used in determining any action that 
depends on size, such as justification, truncation or 
overflow. 

If the data description of an item contains the SYNCHRONIZED 
clause and an operational sign, the sign of the item appears 
in the normal operation sign position, regardless of whether 
the item is SYNCHRONIZED LEFT or SYNCHRONIZED RIGHT. 

When the SYNCHRONIZED clause is specified in a data 
description entry of a data item that also contains an 
OCCURS clause, or in a data description entry that contains 
an OCCURS clause, then: 

Each occurrence of the data item is SYNCHRONIZED. 

Any implicit FILLER generated for other data items 
within that same table are generated for each 
occurrence of those data items. 

Records of a file and index data items are automatically 
synchronized left. Records and noncontiguous data-items in 
working-storage begin on the next available byte unless the 
first elementary item is synchronized. 

The format on external media of records or groups containing 
elementary items described with the SYNCHRONIZED clause 
includes any implied FILLER bytes. 

When the data item preceding a data item described with the 
SYNCHRONIZED clause does not terminate on a byte whose 
address is even, then one implied FILLER byte is generated. 
Such automatically generated FILLER positions are included 
in : 

The size of any group to which the FILLER item belongs; 
and 

The number of character positions allocated when the 
group item of which the FILLER item is a part appears 
as the object of a REDEFINES clause. 
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The JUSTIFIED Clause 



The JUSTIFIED clause specifies nonstandard positioning of 
data within a receiving data item. 



FORMAT 

{ JUSTIFIED } RIGHT 
{JUST } 



When a receiving data item is described with the JUSTIFIED 
clause and the sending data item is larger than the 
receiving data item, the leftmost characters are truncated. 
When the receiving data item is described with the JUSTIFIED 
clause and it is larger than the sending data item, the data 
is aligned at the rightmost character position in the data 
item with space-fill for the leftmost character positions. 

When the JUSTIFIED clause is omitted, the standard rules for 
aligning data within an elementary item apply. 

The JUSTIFIED clause cannot be specified for any data item 
described as numeric or for which editing is specified. 

The JUSTIFIED clause can be specified only at the elementary 
item level. 

JUST is an abbreviation for JUSTIFIED. 
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The BLANK WHEN ZERO Clause 



The BLANK WHEN ZERO clause permits the blanking of an item 
when its value is zero. 



FORMAT 

BLANK WHEN ZERO 



The BLANK WHEN ZERO clause can be used only for an 
elementary item whose PICTURE is specified as numeric or 
numeric edited. 

The BLANK WHEN ZERO clause cannot appear in the same entry 
with a PICTURE clause having an asterisk as the zero 
suppression symbol. 



When the BLANK WHEN ZERO clause is used, the item will 
contain nothing but spaces if the value of the item is zero 

When the BLANK WHEN ZERO clause is used for an item whose 
PICTURE is numeric, the category of the item is considered 
to be numeric edited. 
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The VALUE IS Clause 



The VALUE IS clause defines the initial value of working 
storage items, and the values associated with a 
condition-name . 



FORMAT 1 

VALUE IS literal 

FORMAT 2 

{ VALUE IS } literal-1 [{ THROUGH } literal-2] 
{ VALUES ARE} { THRU } 

[,literal-3 [{ THROUGH } literal-4]] 
{THRU } 



The VALUE clause cannot be stated for any items whose size 
is variable. 

A signed numeric literal must have associated with it a 
signed numeric PICTURE character-string. 

All numeric literals in a VALUE clause of an item must have 
a value which is within the range of values indicated by the 
PICTURE clause, and must not have a value which would 
require truncation of nonzero digits. Nonnumeric literals 
in a VALUE clause of an item must not exceed the size 
indicated by the PICTURE clause. 

The words THRU and THROUGH are equivalent. 

The VALUE clause must not conflict with other clauses in the 
data description of the item or in the data description 
within the hierarchy of the item. The following rules 
apply: 

1. If the category of the item is numeric, all literals in 
the VALUE clause must be numeric. If the literal 
defines the value of a working storage item, the 
literal is aligned in the data item according to the 
standard alignment rules. 
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2. If the category of the item is alphabetic, 

alphanumeric, alphanumeric edited or numeric edited, 
all literals in the VALUE clause must be nonnumeric 
literals. The literal is aligned in the data item as 
if the data item had been described as alphanumeric. 
Editing characters in the PICTURE clause are included 
in determining the size of the data item but have no 
effect on initialization of the data item. Therefore, 
the VALUE of an edited item is presented in an edited 
form. 

Initialization takes place independent of any BLANK WHEN 
ZERO or JUSTIFIED clause that may be specified. 

A figurative constant may be substituted in both Format 1 
and Format 2 wherever a literal is specified. 



Condition-Name Rules 

In a condition-name entry, the VALUE clause is required. 
The VALUE clause and the condition-name itself are the only 
two clauses permitted in the entry. The characteristics of 
a condition-name are implicitly those of its conditional 
variable. 

Format 2 can be used only in connection with 
condition-names. Wherever the THROUGH (THRU) phrase is 
used, literal-1 must be less than literal-2, literal-3 less 
than literal-4, etc. 



Data Description Entries Other Than Condition-Names 

Rules governing the use of the VALUE clause differ with the 
respective sections of the Data Division: 

In the File Section, the VALUE clause may be used only 
in condition-name entries. 

In the Working-Storage Section, the VALUE clause must 
be used in condition-name entries. The VALUE clause 
may also be used to specify the initial value of any 
other data item; in which case the clause causes the 
item to assume the specified value at the start of the 
object program. If the VALUE clause is not used in an 
item's description, the initial value is undefined. 
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In the Linkage Section, the VALUE clause may be used 
only in condition -name entries. 

The VALUE clause must not be stated in a data description 
entry that contains an OCCURS clause, or in an entry that is 
subordinate to any entry containing a REDEFINES clause. 
This rule does not apply to condition-name entries. 

If the VALUE clause is used in an entry at the group level, 
the literal must be a figurative constant or a nonnumeric 
literal, and the group area is initialized without 
consideration for the individual elementary or group items 
contained within this group. The VALUE clause cannot be 
stated at the subordinate levels within this group. 

The VALUE clause must not be written for a group containing 
items with descriptions including JUSTIFIED, SYNCHRONIZED, 
or USAGE (other than USAGE IS DISPLAY). 
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The RENAMES Clause 



The RENAMES clause permits alternative, possibly 
overlapping, groupings of elementary items. 



FORMAT 

66 data-name-1 ; 

RENAMES data-name- 2 [ { THROUGH } data-name-3] 

{ THRU } 



NOTE: Level-number 66, data-name-1 and the semicolon 
are shown in the above format to improve 
clarity. Level-number and data-name-1 are not 
part of the RENAMES clause. 



All RENAMES entries referring to data items within a given 
logical record must immediately follow the last data 
description entry of the associated record description 
entry. 

Data-name-2 and data-name-3 must be names of elementary 
items or groups of elementary items in the same logical 
record, and cannot be the same data-name. A 66 level entry 
cannot rename another 66 level entry nor can it rename a 77, 
88, or 01 level entry. 

Data-name-1 cannot be used as a qualifier, and can only be 
qualified by the names of the associated level 01 or FD 
entries. Neither data-name-2 nor data-name-3 may have an 
OCCURS clause in its data description entry nor be 
subordinate to an item that has an OCCURS clause in its data 
description entry. 

The beginning of the area described by data-name-3 must not 
be to the left of the beginning of the area described by 
data-name-2. The end of the area described by data-name-3 
must be to the right of the end of the area described by 
data-name-2. Data-name-3, therefore, cannot be subordinate 
to data-name-2. 

Data-name-2 and data-name-3 may be qualified. 
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None of the items within the range, including data-name-2 
and data-name-3, if specified, can be an item whose size is 
variable as defined in the OCCURS clause. 

One or more RENAMES entries can be written for a logical 
record. 

When data-name-3 is specified, data-name-1 is a group item 
which includes all elementary items starting with 
data-name-2 (if data-name-2 is an elementary item) or the 
first elementary item in data-name-2 (if data-name-2 is a 
group item), and concluding with data-name-3 (if data-name-3 
is an elementary item) or the last elementary item in 
data-name-3 (if data-name-3 is a group item). 

When data-name-3 is not specified, data-name-2 can be either 
a group or an elementary item; when data-name-2 is a group 
item, data-name-1 is treated as a group item, and when 
data-name-2 is an elementary item, data-name-1 is treated as 
an elementary item. 

The words THRU and THROUGH are equivalent. 
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Classes of Data 



The five categories of data items (see the PICTURE clause) 
are grouped into three classes: 

alphabetic 

numeric 

alphanumeric 

For alphabetic and numeric, the classes and categories are 
synonymous . 

The alphanumeric class includes the categories of 
alphanumeric edited, numeric edited and alphanumeric 
(without editing). 

Every elementary item except for an index data item belongs 
to one of the classes and further to one of the categories. 
The class of a group item is treated at object time as 
alphanumeric regardless of the class of elementary items 
subordinate to that group item. 

The following chart depicts the relationship of the class 
and categories of data items: 



LEVEL OF ITEM | CLASS 

Alphabetic 

Numeric 

Alphanumeric 

Alphanumeric 




CATEGORY 

Alphabetic 

Numeric 

Numeric Edited 
Alphanumeric Edited 
Alphanumeric 

Alphabetic 
Numeric 
Numeric Edited 
Alphanumeric Edited 
Alphanumeric 
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Representation of Numeric Items 

The value of a numeric item may be represented in either 
binary, decimal or packed decimal form depending on the 
USAGE clause associated with the item. There are two ways 
of expressing decimal: DISPLAY and COMPUTATIONAL. Binary is 
C0MPUTATI0NAL-1. Packed decimal is COMPUTATIONAL- 3 . 

The selection of the proper representation is dependent upon 
the usage of the numeric item. Items which must be used for 
input and output should be of DISPLAY usage to eliminate 
conversions to external forms. For efficiency of arithmetic 
operations, COMPUTATIONAL, C0MPUTATI0NAL-1 , or 
COMPUTATIONAL -3 should be used. To reduce conversions and 
increase efficiency, types should not be mixed in operations 
except where required by program needs. 



Representation of Algebraic Signs 

Algebraic signs fall into two categories: 

operational signs which are associated with signed 
numeric data items, and signed numeric literals to 
indicate their algebraic properties; and 

editing signs which appear to identify the sign of the 
item. 

For DISPLAY, COMPUTATIONAL, and COMPUTATIONAL- 3 , an unsigned 
numeric item is assumed to have an operational sign which is 
positive and will receive the absolute value of signed 
items. A signed numeric item maintains the operational sign 
as a separate trailing character. 

For C0MPUTATI0NAL-1 (which is always signed), the 
operational sign is maintained as part of the item in two's 
complement signed binary form. 

Editing signs are inserted into a data item through the use 
of the sign control symbols of the PICTURE clause. 
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Standard Alignment Rules 

The standard rules of positioning data within an elementary 
item depend on the category of the receiving item: 

If the receiving data item is described as numeric: 

a. The data is aligned by decimal point and is moved 
to the receiving character positions with zero fill 
or truncation on either end as required. 

b. When an assumed decimal point is not explicitly 
specified the data item is treated as if it had an 
assumed decimal point immediately following its 
righmost character and is aligned as in a. above. 

If the receiving data item is a numeric edited data 
item, the data moved to the edited data item is aligned 
by decimal point with zero-fill or truncation at either 
end as required within the receiving character 
positions of the data item, except where editing 
requirements cause replacement of the leading zeros. 

If the receiving data item is alphanumeric (other than 
a numeric edited data item), alphanumeric edited or 
alphabetic, the sending data is moved to the receiving 
character positions and aligned at the leftmost 
character position in the data item with space-fill or 
truncation to the right, as required. 

If the JUSTIFIED clause is specified for the receiving item, 
these standard rules are modified as descried in the 
JUSTIFIED clause. 
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Every user-specified name that defines an element in COBOL 
source program must be unique, either because no other name 
has the identical spelling and hyphenation, or because the 
name exists within a hierarchy of names such that references 
to the name can be made unique by mentioning one or more of 
the higher levels of the hierarchy. The higher levels are 
called qualifiers and this process that specifies uniqueness 
is called qualification. Enough qualification must be 
mentioned to make the name unique; however, it may not be 
necessary to mention all levels of the hierarchy. Within 
the Data Division, all data-names used for qualification 
must be associated with a level indicator or a level-number. 
Therefore, two identical data-names must not appear as 
entries subordinate to a group item unless they are capable 
of being made unique through qualification. 

In the hierarchy of qualification, names associated with a 
level indicator are the most significant, then those names 
associated with level-number 01, then names associated with 
level-number 02, ..., 49. The most significant name in the 
hierarchy must be unique and cannot be qualified. 

Qualification is performed by following a data-name, by one 
or more phrases composed of a qualifier preceded by IN or 
OF. IN and OF are logically equivalent. 



FORMAT 1 



{data-name-1} 
{condition-name} 



[{OF} data-name-2 
{IN} 



FORMAT 2 
paragraph-name 



[{OF} section-name] 
{IN} 



The rules for qualification are as follows: 

1. Each qualifier must be of a successively higher level 
and within the same hierarchy as the name it qualifies 
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2. The same name must not appear at two levels in a 
hierarchy. 

3. If a data name is assigned to more than one data item 
in a source program, the data_name must be qualified 
each time it is referred to in the Procedure, 
Environment, and Data Divisions (except in the 
REDEFINES clause where qualification is unnecessary and 
must not be used.) 

4. A paragraph-name must not be duplicated within a 
section. When a paragraph-name is qualified by a 
section-name, the word SECTION must not appear. A 
paragraph-name need not be qualified when referred to 
from within the same section. 

5. A data-name cannot be subscripted when it is being used 
as a qualifier. 

6. A name can be qualified even though it does not need 
qualification: if there is more than one combination 
of qualifiers that ensures uniqueness, then any such 
set can be used. The complete set of qualifiers for a 
data-name must not be the same as any partial set of 
qualifiers for another data-name. Qualified data-names 
may have any number of qualifiers up to a limit of 49. 



Radio /haek 

- 104 - 



RM/COBOL Language tqcs fan ® Subscripting 



SUBSCRIPTING 



Subscripts can be used only when reference is made to an 
individual element within a list of a table of like elements 
that have not been assigned individual data-names (see The 
OCCURS Clause) . 

The subscript can be represented either by a numeric literal 
that is an integer or by a data-name. The data name must be 
a numeric elementary item that represents an integer. When 
the subscript is represented by a data-name, the data-name 
may be qualified but not subscripted. 

The subscript may be signed and, if signed, it must be 
positive. The lowest possible subscript value is 1. This 
value points to the first element of the table. The next 
sequential elements of the table are pointed to by 
subscripts whose values are 2, 3, ...n. The highest 
permissible subscript value, in any particular case, is the 
maximum number of occurrences of the item as specified in 
the OCCURS clause. 

The subscript, or set of subscripts, that identifies the 
table element id delimited by the balanced pair of 
separators, left parenthesis and right parenthesis, 
following the table element data-name. The table element 
data-name appended with a subscript is called a subscripted 
data-name or an identifier. When more than one subscript is 
required, they are written in the order of successively less 
inclusive dimensions of the data organization. 



FORMAT 

{data-name } (subscript-1 [subscript-2 [ ,subscript-3] ] ) 
{condition-name} 
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INDEXING 



References can be made to individual elements within a table 
of like elements by specifying indexing for that reference. 
An index is assigned to that level of the table by using the 
INDEXED BY phrase in the definition of a table. A name 
given in the INDEXED BY phrase is know as an index-name and 
is used to refer to the assigned index. The value of an 
index corresponds to the occurrence number of an element in 
the associated table. An index-name must be initialized 
before it is used as a table reference. An index-name can 
be given an initial value by a SET statement, or a FORMAT 4 
PERFORM statement. 

Direct indexing is specified by using an index-name in the 
form of a subscript. Relative indexing is specified when 
the index-name is followed by the operator + or -, followed 
by an unsigned integer numeric literal all delimited by the 
balanced pair of separators, left parenthesis and right 
parenthesis, following the table element data-name. The 
occurrence number resulting from relative indexing is 
determined by incrementing (where the operator + is used) or 
decrementing (when the operator - is used), by the value of 
the literal, the occurrence number represented by the value 
of the index. When more than one index-name is required, 
they are written in the order of successively less inclusive 
dimensions of the data organization. 

At the time of execution of a statement which refers to an 
indexed table element, the value contained in the index 
referenced by the index-name associated with the table 
element must neither correspond to a value less than one (1) 
nor to a value greater than the highest permissible 
occurrence number of an element of the associated table. 
This restriction also applies to the value resultant from 
relative indexing. 



FORMAT 

{data-name} 

{ condition-name } 



( { index-name-1 
{literal-1 

[ , {index-name- 2 

[ , { index-name-3 
{literal-5 



[{+} literal-2]} 
{-> > 

[{+} literal-4]} 
{-} > 

[{+} literal-6]}]]) 
{-> > 
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IDENTIFIER 

An identifier is a term used to reflect that a data-name, if 
not unique in a program, must be followed by a syntactically 
correct combination of qualifiers, subscripts or indices 
necessary to ensure uniqueness. The general formats for 

lQcncirisrs are* 



FORMAT 1 

data-name-1 [{OF} data-name-2] ... [ ( subscript-1 

{IN} 

[ , subscript-2 [,subscript-3]])] 

FORMAT 2 

data-name-1 [{OF} data-name-2] ... [ ( { index-name-1 [{+} literal-2]} 

Uiteral-1 {-} } 

{IN} 

[ , { index-name-2 [{+} literal-4]} 
{literal-3 {-} } 

[,{index-name-3 [{+} literal-6]}]])] 
{literal-5 {-} } 

Restrictions on qualification, subscripting and indexing 
are: 

A data-name must not itself be subscripted nor indexed 
when that data-name is being used as an index, 
subscript or qualifier. 

Indexing is not permitted where subscripting is not 
permitted. 

An index may be modified only by the SET and PERFORM 
statements. Data items described by the USAGE IS INDEX 
clause permit storage of the values associated with 
index-names as data in a form specified by the 
compiler. Such data items are called index data items. 

Literal-1, literal-3, literal-5 in the above format 
must be positive numeric integers. Literal-2, 
literal-4, literal-6, must be unsigned numeric 
integers. 
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CONDITION-NAME 



Each condition-name must be unique, or be made unique 
through qualification and/or indexing, or subscripting. 

If qualification is used to make a condition-name unique, 
the associated conditional variable may be used as the first 
qualifier. If qualification is used, the hierarchy of names 
associated with the conditional variable or the conditional 
variable itself must be used to make the condition-name 
unique. 

If references to a conditional variable require indexing or 
subscripting, then references to any of its condition-names 
also require the same combination of indexing or 
subscripting. 

The format and restrictions on the combined use of 
qualification, subscripting, and indexing of condition-names 
is exactly that of 'identifier 1 except that data-name-1 is 
replaced by condition-name-1. 

In the general formats, 'condition-name' refers to a 
condition-name qualified, indexes or subscripted, as 
necessary. 
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TABLE HANDLING 



Tables of data are common components of business data 
processing problems. Although items of data that make up a 
table could be described as contiguous data items, there are 
two reasons why this approach is not satisfactory. First, 
from a documentation stanpoint, the underlying homogeneity 
of the items would not be readily apparent; and second, the 
problem of making available an individual element of such a 
table would be severe when there is a decision as to which 
element is to be made available at object time. 

Tables composed of contiguous data items redefined in COBOL 
by including the OCCURS clause in their data description 

611 uxlcS . 

This clause specifies that the item is to be repeated as 
many times as stated. The item is considered to be a table 
element and its name and description apply to each 
repetition or occurrence. Since each occurrence of a table 
element does not have asigned to it a unique data-name, 
reference to a desired occurrence may be made only by 
specifying the data-name of the table element together with 
the occurrence number of the desired table element. 
Subscripting and indexing are the two methods that are used 
to specify the occurrence number of a desired table element. 



Table Definition 

To define a one-dimensional table, the programmer uses an 
OCCURS clause as part of the data description of the table 
element, but the OCCURS clause must not appear in the 
description of group items which contain the table element 



Example 1: 

01 TABLE -1 

02 TABLE-ELEMENT OCCURS 20 TIMES. 

03 NAME 

03 SSAN 
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Defining a one-dimensional table within each occurrence of 
an element of another one-dimensional table gives rise to a 
two-dimensional table. To define a two-dimensional table, 
then, an OCCURS clause must appear in the data description 
of the element of the table, and in the description of only 
one group item which contains that table. In the 
description of a three-dimensional table, the OCCURS clause 
should appear in the data description of 2 nested group 
items which contain the element. In COBOL, tables of up to 
3 dimensions are permitted. 

Example 2 shows a table which has one dimension for 
CONTINENT-NAME, two dimensions for COUNTRY -NAME, and three 
dimensions for CITY -NAME and CITY-POPULATION. The table 
includes 100,510 data items— 10 for CONTINENT -NAME, 500 for 
COUNTRY-NAME, 50,000 for CITY-NAME, and 50,000 for 
CITY-POPULATION. Within the table there are ten occurrences 
of CONTINENT-NAME. Within each CONTINENT-NAME there are 50 
occurrences of COUNTRY-NAME and within each COUNTRY-NAME 
there are one hundred occurrences of CITY-NAME and 
CITY-POPULATION. 



Example 2: 

01 CENSUS -TABLE. 

05 CONTINENT-TABLE OCCURS 10 TIMES. 
10 CONTINENT-NAME PIC XXXXXX. 
10 COUNTRY-TABLE OCCURS 50 TIMES. 
15 COUNTRY-NAME PIC XXXXXXXX. 
15 CITY-TABLE OCCURS 100 TIMES. 

20 CITY -NAME PIC XXXXXXXXXX. 

20 CITY-POPULATION PIC 999999999999. 



References to Table Items 

Wherever the user refers to a table element, the reference 
must indicate which occurrence of the element is intended. 
For access to a one-dimensional table, the occurrence number 
of the desired element provides complete information. For 
access to tables of more than one dimension, an occurrence 
number must be supplied for each dimension of the table 
accessed. In Example 2 then, a reference to the 4th 
CONTINENT-NAME would be complete, whereas a reference to 
the 4th COUNTRY -NAME would not. To refer to a COUNTRY-NAME, 
which is an element of a two-dimensional table, the user 
must refer to, for example, the 4th COUNTRY-NAME within the 
6th CONTINENT-TABLE. 
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One method by which occurrence numbers may be specified is 
to append one or more subscripts to the data-name. A 
subscript is an integer whose value specifies the occurrence 
number of an element. The subscript can be represented 
either by a literal which is an integer or by a data-name 
which is defined elsewhere as a numeric elementary item with 
no character positions to the right of the assumed decimal 
point. In either case, the subscript, enclosed in 
parenthesis, is written immediately following the name of 
the table element. A table reference must include as many 
subscripts as there are dimensions in the table whose 
element is being referenced. That is, there must be a 
subscript for each OCCURS clause in the hierarchy containing 
the data-name, including the data-name itself. In Example 
2, references to CONTINENT-NAME require only one subscript, 
reference to COUNTRY-NAME requires two, and references to 
CITY-NAME and CITY-POPULATION require three. 

When more than one subscript is required, they are written 
in order of successively less inclusive dimensions of the 
data organization. When a data-name is used as a subscript, 
it may be used to refer to items in many different tables. 
These tables need not have elements of the same size. The 
data-name may also appear as the only subscript with one 
item and as one of two or three subscripts with another 
item. Also, it is permissible to mix literal and data-name 
subscripts, for example: CITY-POPULATION (10, NEWKEY, 42). 

Another method of referring to items in a table is indexing. 
To use this technique, the programmer assigns one or more 
index-names (defined with the INDEXED-BY phrase of the 
OCCURS clause) to an item whose data description contains an 
OCCURS clause. There is no separate entry to describe the 
index-name since its definition is completely 
hardware-oriented and it is not considered data per se. At 
object time the contents of the index-name will correspond 
to an occurrence number for that specific dimension of the 
table to which the index -name was assigned. The initial 
value of an index-name at object time is not determinable 
and the index-name must be initialized by the SET statement 
before use. 

When a reference is made to a table element, or to an item 
within a table element, and the name of the item is followed 
by its related index-name or names in parentheses, then each 
occurrence number required to complete the reference will be 
obtained from the respective index-name. The index-name 
thus acts as a subscript whose value is used in any table 
reference that specifies indexing. 
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VI 



PROCEDURE DIVISION 
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THE PROCEDURE DIVISION 



The Procedure Division must be included in every COBOL 
source program. This division may contain declaratives and 
nondeclarative procedures. 

The Procedure Division is identified by and must begin with 
the following header: 



PROCEDURE DIVISION [USING data-name-1 [, data-name- 2] ...] . 



The USING phrase is present if and only if the object 
program is to function under the control of a CALL 
statement, and the CALL statement in the calling program 
contains a USING phrase. 

Each of the operands in the USING phrase of the Procedure 
Division header must be defined as a data item in the 
Linkage Section of the program in which this header occurs, 
and it must have a 01 or 77 level-number. 

Within a called program, Linkage Section data items are 
processed according to their descriptions given in the 
called program. Of those items defined in the Linkage 
Section only data-name-1, data-name-2, items subordinate to 
these data-names, and condition-names and/or index-name 
associated with such data-names and/or subordinate data 
items, may be referenced in the Procedure Division. 

When the USING phrase is present, the object program 
operates as if data-name-1 of the Procedure Division header 
in the called program and data-name-1 in the USING phrase of 
the CALL statement in the calling program refer to a single 
set of data that is equally available to both the called and 
calling programs. Their definitions must contain the same 
data descriptions; however, they need not be the same name. 
In like manner, there is an equivalent relationship between 
data-name-2, ..., in the USING phrase of the called program 
and data-name-2, ..., in the USING phrase of the CALL 
statement in the calling program. A data-name must not 
appear more than once in the USING phrase in the Procedure 
Division header of the called program; however, a given 
data-name may appear more than once in the same USING phrase 
of a CALL statement. 
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Structure 



The body of the Procedure Division must conform to one of 
the following formats: 



FORMAT 1 

PROCEDURE DIVISION [ USING data-name-1 [ , data-name-2] . . . ] . 

[ DECLARATIVES. 

{section-name SECTION [segment-number], declarative-sentence 
[paragraph-name, [sentence] ..] ...} ... 
END DECLARATIVES. ] 

{section-name SECTION [segment-number], 

[paragraph-name, [sentence] ...] ...} ... 
[ END PROGRAM ], 

FORMAT 2 

PROCEDURE DIVISION [ USING data-name-1 [ , data-name-2] . . . ] . 

{paragraph-name, [sentence] ...} ... 
[END PROGRAM]. 



The segment-number must be an integer ranging in value from 
through 127. 

If the segment-number is omitted from the section header, 
the segment-number is assumed to be 0. 

Sections in the declaratives must contain segment-numbers 
less than 50. 

All sections which have the same segment-number constitute a 
program segment. Sections with the same segment-number must 
be physically contiguous in the source program. 
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Segments with segment -numbers through 49 belong to the 
fixed portion of the object program. Segments with 
segment-numbers 50 through 127 are independent segments. 
Independent segments must follow fixed segments. 



Declaratives 

Declarative sections must be grouped at the beginning of the 
Procedure Division preceded by the key word DECLARATIVES and 
followed by the key words END DECLARATIVES. 



Procedures 

A procedure is composed of a paragraph, or group of 
successive paragraphs, or a section, or a group of 
successive sections within the Procedure Division. If one 
paragraph is in a section, then all paragraphs must be in 
sections. A procedure-name is a word used to refer to a 
paragraph or section. It consists of a paragraph-name 
(which may be qualified), or a section-name. 

A section consists of a section header followed by zero, or 
more successive paragraphs. A section ends immediately 
before the next section or at the end of the Procedure 
Division or, in the declaratives portion of the Procedure 
Division, at the key words END DECLARATIVES. 

A paragraph consists of a paragraph-name followed by a 
period and a space and by zero, or more successive 
sentences. A paragraph ends immediately before the next 
paragraph-name or section-name or at the end of the 
Procedure Division or, in the declaratives portion of the 
Procedure Division, at the key words END DECLARATIVES. A 
paragraph-name must not be duplicated within a section. 



Execution 

Execution begins with the first statement of the Procedure 
Division, excluding declaratives. Statements are then 
executed in the order in which they are presented for 
compilation, except where the rules indicate some other 
order . 
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PROCEDURE REFERENCES 



A procedure is referred to by its paragraph-name or 
sect ion -name. Paragraph-names may be qualified by the 
section-name of the section containing the paragraph, 
whether or not it needs qualification. When referring to a 
section-name or when using a section-name as a qualifier, 
the word SECTION must not appear. Qualification is performed 
by following a paragraph-name with a section-name preceded 
by IN or OF. IN and OF are logically equivalent. The 
general format for paragraph qualification is: 

paragraph-name [{OF} section-name] 

{IN} 

A paragraph-name need not be qualified when referred to from 
within the same section or when the paragraph-name is 
unique. 



Explicit and Implicit Transfers of Control 

The mechanism that controls program flow transfers control 
from statement to statement in the sequence in which they 
were written in the source program unless an explicit 
transfer of control overrides this sequence or there is no 
next executable statement to which control can be passed. 
The transfer of control from statement to statement occurs 
without the writing of an explicit Procedure Division 
statement, and therefore, is an implicit transfer of 
control . 

COBOL provides both explicit and implicit means of altering 
the implicit control transfer mechanism. 

In addition to the implicit transfer of control between 
consecutive statements, implicit transfer of control also 
occurs when the normal flow is altered without the execution 
of a procedure branching statement. COBOL provides the 
following types of implicit control flow alterations which 
override the statement-to-statement transfers of control: 

If a paragraph is being executed under control of 
another COBOL statement (for example, PERFORM and USE) 
and the paragraph is the last paragraph in the range of 
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the controlling statement, then an implied transfer of 
control occurs from the last statement in the paragraph 
to the control mechanism of the last executed 
controlling statement. 

Further, if a paragraph is being executed under the 
control of a PERFORM statement which causes iterative 
execution and that paragraph is the first paragraph in 
the range of that PERFORM statement, an implicit 
transfer of control occurs between the control 
mechanism associated with that PERFORM statement and 
the first statement in that paragraph for each 
iterative execution of the paragraph. 

When any COBOL statement is executed which results in 
the execution of a declarative section, an implicit 
transfer of control to the declarative section occurs. 
Note that another implicit transfer of control occurs 
after execution of the declarative. 

An explicit transfer of control consists of an alteration of 
the implicit control transfer mechanism by the execution of 
a procedure branching or conditional statement. An explicit 
transfer of control can be caused only by the execution of a 
procedure branching or conditional statement. The execution 
of the procedure branching statement ALTER does not in 
itself constitute an explicit transfer of control, but 
affects the explicit transfer of control that occurs when 
the associated GO TO statement is executed. 

In this document, the term 'next executable statement 1 is 
used to refer to the next COBOL statement to which control 
is transferred according to the rules above and the rules 
associated with each language element in the Procedure 
Division. 

There is no next executable statement following: 

The last statement in a declarative section when the 
paragraph in which it appears is not being executed 
under the control of some other COBOL statement. In 
COBOL, the result would be an implicit transfer of 
control to the first nondeclarative statement. 

The last statement in a program when the paragraph in 
which it appears is not being executed under the 
control of some other COBOL statement. The result 
would be as if an implicit STOP RUN statement were 
executed. 
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SEGMENTATION 



COBOL segmentation is a facility that provides a means by 
which the user may communicate with the compiler to specify 
object program overlay requirements. COBOL segmentation 
deals only with segmentation of procedures. 



Segments 

When segmentation is used, the entire Procedure Division 
must be in sections. In addition, each section must be 
classified as belonging either to the fixed portion or to 
one of the independent segments of the object program as 
determined by the assignment of segment numbers. All source 
paragraphs which contain the same segment-numbers can range 
from 00 through 127, it is possible to subdivide any object 
program into a maximum of 128 segments. Segmentation in no 
way affects the need for qualification of procedure-names to 
insure uniqueness. 



Fixed Portion 

The fixed portion is defined as that part of the object 
program which is always in memory. This portion of the 
program is composed of segments with segment-numbers 
through 49. 



Independent Segments 

An independent segment is defined as part of the object 
program which can overlay, and can be overlaid by, another 
independent segment. An independent segment has a 
segment-number 50 through 127. 

An independent segment is in its initial state whenever 
control is transferred (either implicitly or explicitly) to 
that segment for the first time during the execution of a 
program. 

On subsequent transfers of control to the segment, an 
independent segment is also in its initial state when: 
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Control is transferred to that segment as a result of 
the implicit transfer of control between consecutive 
statements from a segment with a different 
segment-number. 

Control is transferred explicitly to that segment from 
a segment with a different segment-number. 



On subsequent transfer of control to the segment, an 
independent segment is in its last-used state when control 
is transferred implicitly to that segment from a segment 
with a different segment-number. 



Segmentation Classification 

Sections which are to be segmented are classified using a 
system of segment-numbers and the following criteria: 

Logic Requirements — Sections which must be available 
for reference at all times, or which are referred to 
very frequently, are normally classified as belonging 
to one of the permanent segments; sections which are 
used less frequently are normally classified as 
belonging to one of the independent segments, depending 
on logic requirements. 

Frequency of Use — Generally, the more frequently a 
section is referred to, the lower its segment -number ; 
the less frequently it is referred to, the higher its 
segment-number . 

Relationship to Other Sections — Sections which 
frequently communicate with one another should be given 
the same segment-numbers. 



Segmentation Control 

The logical sequence of the program is the same as the 
physical sequence except for specific transfers of control 
Control may be transferred within a source program to any 
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paragraph in a section; that is, it is not mandatory to 
transfer control to the beginning of a section. 

Restrictions on Program Flow 



When segmentation is used, the following restrictions are 
placed on the ALTER and PERFORM statements. 



The ALTER STATEMENT 

A GO TO statement in a section whose segment-number is 
greater than or equal to 50 must not be referred to by an 
ALTER statement in a section with a different 
segment-number . 

The PERFORM STATEMENT 



A PERFORM statement that appears in a section that is not in 
an independent segment can have within its range, in 
addition to any declarative sections whose execution is 
caused within that range, only one of the following: 

Sections and/or paragraphs wholly contained on one or 
more fixed segments, or 

Sections and/or paragraphs wholly contained in a single 
independent segment. 

A PERFORM statement that appears in an independent segment 
can have within its range, in addition to any declarative 
sections whose execution is caused within that range, only 
one of the following: 

Sections and/or paragraphs wholly contained in one or 
more fixed segments, or 

Sections and/or paragraphs wholly contained in the same 
independent segment as that PERFORM statement. 
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THE USE STATEMENT 



ins ubu s t 3 t eroe n t specirxes proc6Qui.es zor input output, 
error handling that are in addition to the standard 
procedures provided by the input-output control system. It 
is a compiler directing statement required in each 
declarative section. 



FORMAT 

USE AFTER STANDARD { EXCEPTION } 

{ ERROR } 

PROCEDURE ON {file-name-1 [ , f ile-name-2] ...} 

{ INPUT } 

{ OUTPUT } 

{ 1-0 } 

{EXTEND } 



A USE statement, when present, must immediately follow a 
section header in the declaratives section and must be 
followed by a period followed by a space. The remainder of 
the section must consist of zero, one or more procedural 
paragraphs that define the procedures to be used. 

The USE statement itself is never executed; it merely 
defines the conditions calling for the execution of the USE 
procedure. 

The same file-name can appear in only one USE statement. 

The words ERROR and EXCEPTION are synonymous and may be used 
interchangeably . 

The designated procedures can be executed by the 
input-output system after completing the standard 
input-output error routine, or upon recognition of the 
INVALID KEY or AT END conditions, when the INVALID KEY 
phrase or AT END phrase, respectively, has not been 
specified in the input-output statement. 

After execution of a USE procedure, control is returned to 
the invoking routine. 

Within a USE procedure, there must not be any reference to 

Radio /haek 



USE Statement TRS-8Q ® RM/COBOL Language 



any nondeclarative procedures. Conversely, in the 
nondeclarative portion there must be no reference to 
procedure-names that appear in the declarative portion, 
except that PERFORM statements may refer to a USE statement 
or to the procedures associated with such a USE statement. 

Within a USE procedure, there must not be the execution of 
any statement that would cause the execution of a USE 
procedure that had previously been invoked and had not yet 
returned control to the invoking routine. 



USE Example; 



PROCEDURE DIVISION. 
DECLARATIVES . 
IO-ERROR SECTION. 

USE AFTER STANDARD ERROR PROCEDURE ON 1-0, 
I0-ERR0R-R0UTINE . 

DISPLAY "INPUT-OUTPUT ERROR OCCURRED". 

ACCEPT CONTINUE-FLAG POSITION ZERO. 

IF CONTINUE-FLAG = "NO" STOP RUN. 
END DECLARATIVES. 
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ARITHMETIC STATEMENTS 

The arithmetic statements ADD, COMPUTE, DIVIDE, MULTIPLY, 
and SUBTRACT have several common features: 

The data descriptions of the operands need not be the 
same; any necessary conversion and decimal point 
alignment is supplied throughout the calculation. 

Arithmetic operations are calculated in either binary, 
decimal, packed decimal, or mixed depending on the USAGE 
of the operands and receiving item according to the 
following rules: 

If the receiving data item of a divide operation 
is DISPLAY or COMPUTATIONAL, the operation is 
always calculated in decimal with any necessary 
conversions . 

Intermediate and final results are calculated in 
binary if all preceding intermediate results are 
binary and the next operand has C0MPUTATI0NAL-1 
usage (except as noted in previous paragraph). 
Otherwise, the remaining intermediate and final 
results are calculated in decimal with any 
necessary conversions. 

The maximum size of each operand is eighteen (18) 
decimal digits. The composite of operands, which is a 
hypothetical data item resulting from the super- 
imposition of specified operands in a statement aligned 
on their decimal points, must not contain more than 
eighteen decimal digits. 



Arithmetic Expressions 

An arithmetic expression can be an identifier of a numeric 
elementary item, a numeric literal, such identifiers and 
literals separated by arithmetic operators, two arithmetic 
expressions separated by an arithmetic operator, or an 
arithmetic expression enclosed in parentheses. Any 
arithmetic expression may be preceded by a unary operator. 
The permissible combinations of variables, numeric literals, 
arithmetic operator and parentheses are given in Combination 
of Symbols in Arithmetic Expressions Table. 
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Those identifiers and literals appearing in an arithmetic 
expression must represent either numeric elementary items or 
numeric literals on which arithmetic may be performed. 



Arithmetic Operators 



There are four binary arithmetic operators and two unary 
arithmetic operators that may be used in arithmetic 
expressions. They are represented by specific characters 
that must be preceded by a space and followed by a space. 



Binary Arithmetic 
Operators 



+ 



/ 



Unary Arithmetic 
Operators 



Meaning 

Addition 
Subtraction 
Multiplication 
Division 



Meaning 

The effect of multiplication 
by numeric literal +1 

The effect of multiplication 
by numeric literal -1. 



Formation and Evaluation Rules 



Parentheses may be used in arithmetic expressions to specify 
the order in which elements are to be evaluated. 
Expressions within parentheses are evaluated first, and 
within nested parentheses, evaluation proceeds from the 
least inclusive set to the most inclusive set. When 
parentheses are not used, or parenthesized expressions are 
at the same level of inclusiveness, the following 
hierarchical order of execution is implied: 



Radio /haek* 

- 126 - 



RM/COBOL Language 



TRS-80 



Ar i thine tic Statements 



1st - Unary plus and minus 

2nd - Multiplication and division 

3rd - Addition and subtraction 



Parentheses are used either to eliminate ambiguities in ^ 
logic where consecutive operations of the same hierarchical 
level appear or to modify the normal hierarchical sequence 
of execution in expressions where it is necessary to have 
some deviation from the normal precedence. When the 
sequence of execution is not specified by parentheses, the 
order of execution of consecutive operations of the same 
hierarchical level is from left to right. 

The ways in which operators, variables, and parentheses may 
be combined in an arithmetic expression are summarized in 
the following table, where: 

The letter 'P' indicates a permissible pair of symbols 

The character '-' indicates an invalid pair. 

'Variable 1 indicates an identifier or literal. 
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An arithmetic expression may only begin with the symbol '(', 
'+', '-', or a variable and may only end with a ')' or a 
variable. There must be a one-to-one correspondence between 
left and right parentheses of an arithmetic expression such 
that each left parenthesis is to the left of its 
corresponding right parenthesis. 

Arithmetic expressions allow the user to combine arithmetic 
operations without the restrictions on composite of operands 
and/or receiving data items. 
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CONDITIONALS 



The conditions are relation, class, condition-name, and 
switch-status. A condition has a truth value of 'true' or 
1 false ' . 



Relation Condition 

A relation condition causes a comparison of two operands, 
each of which may be the data item referenced by an 
identifier or a literal. A relation condition has the truth 
value of 'true' if the relation exists between the operands. 

Comparison of two numeric operands is permitted regardless 
of the formats specified in their respective USAGE clauses. 
However, for all other comparisons the operands must have 
the same usage. If either of the operands is a group item, 
the nonnumeric comparison rules apply. 

The general format of a relation condition is as follows: 

{identifier-1} {IS [NOT] GREATER THAN} { identif ier-2} 

{literal-1 } {IS [NOT] LESS THAN }{literal-2 } 

{index-name-1} {IS [NOT] EQUAL TO }{ index-name- 2} 

{IS [NOT] > } 

{IS [NOT] < > 

{IS [NOT] = } 

The first operand (identifier-1, literal-1 or index-name-1) 
is called the subject of the condition? the second operand 
(identif ier-2, literal-2 or index-name-2) is called the 
object of the condition. The relation condition must 
contain at least one reference to a variable. 

The relational operator specifies the type of comparison to 
be made in a relation condition. A space must precede and 
follow each reserved word comprising the relational 



Radio Shack 

- 129 - 



Conditionals 



TRS"80 



© 



RM/COBOL Language 



operator. When used, 'NOT 1 and the next key word or 
relation character are one relational operator that defines 
the comparison to be executed for truth value,- e.g., "NOT 
EQUAL 1 is a truth test for an 'unequal' comparison; 'NOT 



GREATER 



x s 



comparison, 
follows: 



a trutn test 
The meaning 



for an 
of the 



' equal ' or 
relational 



' less ' 
operators 



is as 



Meaning 
Greater than or not greater than 

Less than or not less than 

Equal to or not equal to 



Relational Operator 

IS [NOT] GREATER THAN 
IS [NOT] > 

IS [NOT] LESS THAN 
IS [NOT] < 

IS [NOT] EQUAL TO 
IS [NOT] = 



Note: The required relational character '>', '<', and 
'=' are not underlined to avoid confusion with 
other symbols such as '>' (greater than or equal 
to) . 



Comparison of Numeric Operands 

For operands whose class is numeric a comparison is made 
with respect to the algebraic value of the operands. The 
length of the literals or operands, in terms of number of 
digits represented, is not significant. Zero is considered 
a unique value regardless of the sign. 

Comparison of these operands is permitted regardless of the 
manner in which their usage is described. Unsigned numeric 
operands are considered positive for purposes of comparison. 

Comparison of Nonnumeric Operands 

For nonnumeric operands, or one numeric and one nonnumeric 
operand, a comparison is made with respect to a specified 
collating sequence of characters. If one of the operands is 
specified as numeric, it must be an integer data item or an 
integer literal and: 
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If the nonnumeric operand is an elementary data item or 
a nonumeric literal, the numeric operand is treated as 
though it were moved to an elementary alphanumeric data 
item of the same size as the numeric data item (in 
terms of standard data format characters), and the 
contents of this alphanumeric data item were than 
compared to the nonnumeric operand. 

If the nonnumeric operand is a group item, the numeric 
operand is treated as though it were moved to a group 
item of the same size as the numeric data item (in 
terms of standard data format characters), and the 
contents of this group item were then compared to the 
nonnumeric operand. 

A noninteger numeric operand cannot be compared to a 
nonnumeric operand. 

The size of an operand is the total number of standard data 
format characters in the operand. Numeric and nonnumeric 
operands may be compared only when their usage is the same. 
There are two cases to consider: operands of equal size and 
operands of unequal size. 

Operands of equal size: If the operands are of equal size, 
comparison effectively proceeds by comparing characters in 
corresponding character positions starting from the high 
order end and continuing until either a pair of unequal 
characters is encountered or the low order end of the 
operand is reached, whichever comes first. The operands are 
determined to be equal if all pairs of characters compare 
equally through the last pair, when the low order end is 
reached. 

The first encountered pair of unequal characters is compared 
to determine their relative position in the collating 
sequence. The operand that contains the character that is 
positioned higher in the collating sequence is considered to 
be the greater operand. 

Operands of unequal size: If the operands are of unequal 
size, comparison proceeds as though the shorter operand were 
extended on the right by sufficient spaces to make the 
operands of equal size. 
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Comparisons of Index-Names and/or Index Data Items 

If two index-names are compared the result is the same as if 
the corresponding occurrence numbers were compared. 

For an index-name and a data item (other than an index data 
item) or literal, the comparison is made between the 
occurrence number that corresponds to the value of the 
index-name and the data item or literal. 

When a comparison is made between an index data item and an 
index-name or another index data item, the actual values are 
compared without conversion. 

The result of the comparison of an index data item with any 
data item or literal not specified above is undefined. 



Class Condition 



The class condition determines whether the operand is 
numeric, that is, consists entirely of the characters '0', 
' 1', '2', '3', ..., '9', with or without the operational 
sign; or alphabetic, that is, consists entirely of the 
characters 'A', ' B', 'C, ..., ' Z', space. The general 
format for the class condition is as follows: 

identifier IS [ NOT ] { NUMERIC } 

{ ALPHABETIC } 

The usage of the operand being tested must be described as 
display. When used, "NOT 1 and the next key word specify one 
class condition that defines the class test to be executed 
for truth value, e.g., "NOT NUMERIC is a truth test for 
determining that an operand is nonnumeric. 

The NUMERIC test cannot be used with an item whose data 
description describes the item as alphabetic or as a group 
item composed of elementary items whose data description 
indicates the presence of operational sign(s). If the data 
description of the item being tested does not indicate the 
presence of an operational sign, the item being tested is 
determined to be numeric only if the contents are numeric 
and an operational sign is not present. If the data 
description of the item does indicate the presence of an 
operational sign, the item being tested is determined to be 
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numeric only if the contents are numeric and a valid 
operational sign is present. Valid operational signs for 
data items are the standard data format characters, '+' and 



The ALPHABETIC test cannot be used with an item whose data 
description describes the item as numeric. The item being 
tested is determined to be alphabetic only if the contents 
consist of any combination of the alphabetic characters 'A 1 
through 'Z' and the space. 

Condition-name (Conditional Variable) 



In a condition-name condition, a conditional variable is 
tested to determine whether or not its value is equal to one 
of the values associated with a condition-name. The 
general-format for the condition-name condition is as 
follows : 

cond i t i on -name 

If the condition-name is associated with a range of values, 
then the conditional variable is tested to determine whether 
or not its value falls in this range, including the end 
values . 

The rules for comparing a conditional variable with a 
condition-name value are the same as those specified for 
relation conditions. 

the result of the test is true if one of the values 
corresponding to the condition-name equals the value of its 
associated conditional variable. 



Switch-Status Condition 



A switch-status condition determines the 'on' or 'off 
status of a software switch. The switch-name and the 'on' 
or 'off value associated with the condition must be named 
in the SPECIAL-NAMES paragraph of the Environment Division 
The general format for the switch-status condition is as 
follows : 
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condition -name 

The result of the test is true if the switch is set to the 
specified position corresponding to the condition -name. 



Complex Conditions 



A complex condition is formed by combining simple 
conditions, combined conditions and/or complex conditions 
with logical connectors (logical operators 'AND' and 'OR') 
or negating these conditions with logical negation (the 
logical operator 'NOT'). 



The truth value of a complex condition, whether 
parenthesized or not, is that truth value which results from 
the interaction of all the stated logical operators on the 
individual truth values of simple conditions, or the 
intermediate truth values of conditions logically connected 
or logically negated. The logical operators and their 
meanings are: 

Logical Operator Meaning 

AND Logical conjunction; the truth 

value is 'true* if both of the 
conjoined conditions are true; 
'false' if one or both of the 
conjoined conditions is false. 

OR Logical inclusive OR; the truth 

value is 'true' if one or both of 
the included conditions is true; 
'false' if both included 
conditions are false. 

NOT Logical negation or reversal of 

truth value; the truth value is 
'true' if the condition is false; 
'false' if the condition is true. 

The logical operators must be preceded by a space and 
followed by a space. 



Radio /hack 

- 134 - 



RM/COBQL Language TRS-BO ® Conditionals 



Negated Simple Conditions 

.^— ■— um i u li mn ■ ■— — i m mimmmmmmmtKmmmmimmmiimmmm m i I ■»»■——— — — -- - ■■■ - ■■■ " ' — mm m 

A simple condition is negated through the use of the logical 
operator 'NOT 1 . The negated simple condition effects the 
opposite truth value for a simple condition. Thus the truth 
value of a negated simple condition is 'true' if and only if 
the truth value of the simple condition is 'false'? the 
truth value of a negated simple condition is 'false 1 if and 
only if the truth value of the simple condition is 'true*. 
The inclusion in parentheses of a negated simple condition 
does not change the truth value. 

The general format for a negated simple condition is: 
NOT simple-condition 



Combined and Negated Combined Conditions 

A combined condition results from connecting conditions with 
one of the logical operators 'AND* or 'OR'. The general 
format of a combined condition is: 



condition { { AND } condition} ... 
{OR } 



Where 'condition' may be: 

A simple condition, or 

A negated simple condition, or 

A combined condition, or 

A negated combined condition; i.e., the 'NOT' logical 
operator followed by a combined condition enclosed 
within parentheses, or 

Combinations of the above. 
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Although parentheses need never be used when either 'AND 1 or 
'OR 1 (but not both) is used exclusively in a combined 
condition, parentheses may be used to affect the final truth 
value when a mixture of 'AND', 'OR' and 'NOT* is used. 



Condition Evaluation Rules 



Condition Evaluation Rules indicate the ways in which 
conditions and logical operators may be combined and 
parenthesized. There must be a one-to-one correspondence 
between left and right parentheses such that each left 
parenthesis is to the left of its corresponding right 
parenthesis . 

Parentheses may be used to specify the order in which 
individual conditions of complex conditions are to be 
evaluated when it is necessary to depart from the implied 
evaluation precedence. Conditions within parentheses are 
evaluated first, and, within nested parentheses, evaluation 
proceeds from the least inclusive condition to the most 
inclusive condition. When parentheses are not used, or 
parenthesized conditions are at the same level of 
inclusiveness, the following hierarchical order of logical 
evaluation is implied until the final truth value is 
determined. 

Truth values for simple conditions are established. 

Truth values for negated simple conditions are 
established. 

Truth values for combined conditions are established: 

'AND' logical operators, followed by 
'OR' logical operators. 

Truth values for negated combined conditions are 
established. 



When the sequence of evaluation is not completely specified 
by parentheses, the order of evaluation of consecutive 
operations of the same hierarchical level is from left to 
right . 
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The sequential organization input-output statements in the 
Procedure Division are the CLOSE, OPEN, READ, REWRITE, 
UNLOCK, USE, and WRITE statements. 



Function 



Sequential organization input-output provides a capability 
to access records of a file in established sequence. The 
sequence is established as a result of writing the records 
to the file. 



Organization 

Sequential files are organized such that each record in the 
file except the first has a unique predecessor record, and 
each record except the last has a unique successor record. 
These predecessor-successor relationships are established by 
the order of WRITE statements when the file is created. 
Once established, the predecessor-successor relationships do 
not change except in the case where records are added to the 
end of the file. 



Access Mode 



In the sequential access mode, the sequence in which records 
are accessed is the order in which the records were 
originally written. 



Current Record Pointer 



The current record pointer is a conceptual entity used in 
this document to facilitate specification of the next record 
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to be accessed within a given file. The concept of the 
current record pointer has no meaning for a file opened in 
the output mode. The setting of the current record pointer 
is affected only by the OPEN and READ statements. 



1-0 Status 



If the FILE STATUS clause is specified in a file control 
entry, a value is placed into the specified two-character 
data item during the execution of an OPEN, CLOSE, READ, 
WRITE, or REWRITE statement and before any applicable USE 
procedure is executed, to indicate to the COBOL program the 
status of that input-output operation. 



Status Key 1 

The leftmost character position of the FILE STATUS data item 
is known as status key 1 and is set to indicate one of the 
following conditions upon completion of the input-output 
operation : 

'0' - Successful Completion. The input-output 
statement was successfully executed. 

'1' - At End. The Sequential READ statement was 
unsuccessfully executed as a result of an attempt to 
read a record when no next logical record exists in the 

'3' - Permanent Error. The input-output statement was 
unsuccessfully executed as the result of a boundary 
violation for a sequential file or as the result of an 
input-output error, such as data check parity error, or 
transmission error. 

'9' - General Error. The input-output statement was 
unsuccessfully executed as a result of a condition that 
is specified by the value of status key 2. 



Status Key 2 

The rightmost character position of the FILE STATUS data 
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item is known as status key 2 and is used to further 
describe the results of the input-output operation. This 
character will contain a value as follows: 

If no further information is available concerning the 
input-output operation, then status key 2 contains a 
value of ' ' . 

When status key 1 contains a value of '3' indicating a 
permanent error condition, status key 2 may contain a 
value of '4' indicating a boundary violation. This 
condition indicates that an attempt has been made to 
write beyond the externally defined boundaries of a 
sequential file. 



When status key 1 contains a value a '9' indicating an 
operating system error condition, the value of status key 2 
may contain a: 

'0' indicating an invalid operation. This condition 
indicates that an attempt has been made to execute a 
READ, WRITE, or REWRITE statement that conflicts with 
the current open mode or a REWRITE statement not 
preceded by a successful READ statement. 

'1' indicating file not opened. This condition 

indicates that an attempt has been made to execute a 

DELETE, START, UNLOCK, READ, WRITE, REWRITE or CLOSE 

statement on a file which is not currently open. 

*2' indicating file not closed. This condition 
indicates that an attempt has been made to execute an 
OPEN statement on a file which is currently open. 

'3' indicating file not available. This condition 
indicates that an attempt has ben made to execute an 
OPEN statement for a file closed WITH LOCK or to OPEN a 
file LOCKed by another user. 

'4' indicating an invalid open. this condition 
indicates that an attempt has been made to execute an 
OPEN statement for a file with no external 
correspondence or a file having inconsistent 
parameters. 
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'5 1 indicating invalid device or not next reel. This 
condition indicates that an attempt has been made to 
open a file having parameters (e.g., open mode or 
organization) which conflict with the device assignment 
(RANDOM, INPUT, PRINT, ...) or that an attempt has been 
made to execute a CLOSE REEL statement for the last 
reel/unit of a multi-reel file. In the case of a CLOSE 
REEL, the file has been closed. 

'6' indicating an undefined current record pointer 
status. This condition indicates that an attempt has 
been made to execute a READ statement after occurrence 
of an unsuccessful READ statement without an 
intervening successful CLOSE and OPEN. 

'7' indicating an invalid record length. This 
condition indicates an attempt has been made to open a 
file that was defined with a maximum record length 
different from the externally defined maximum record 
length, or to execute a WRITE statement that specifies 
a record with a length smaller than the minimum or 
larger than the maximum record size, or a REWRITE 
statement when the new record length is different from 
that of the record to be rewritten. 

'9' indicating an attempt has been made to READ a 
record which is locked. this error is returned only if 
an applicable USE procedure and a FILE STATUS data item 
are declared for the file. Otherwise the read 
statement is retried until the record is unlocked. 
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RELATIVE ORGANIZATION INPUT-OUTPUT 



The Relative input-output statement in the Procedure 
Division are the CLOSE, DELETE, OPEN, READ, REWRITE, START, 
UNLOCK and WRITE statements. 



Function 



Relative input-output provides a capability to access 
records of a mass storge file in either a random or 
sequential manner. Each record in a relative file is 
uniquely identified by an integer value greater than zero 
which specifies the record's logical position in the file 



Organization 



Relative file organization is permitted only on mass storage 
devices (RANDOM device) . 

A relative file consists of records which are identified by 
relative record numbers. The file may be thought of as 
composed of a serial string of areas, each capable of 
holding a logical record. Each of these areas is 
denominated by a relative record number, an integer value 
greater than zero. Records are stored and retrieved based 
on this number. For example, the tenth record is the one 
addressed by relative record number 10 and is the tenth 
record area, whether or not records have been written in the 
first through the ninth record areas. 



Access Modes 



In the sequential access mode, the sequence in which records 
are accessed is the ascending order of the relative record 
numbers of all records which currently exist within the 
file. 
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In the random access mode, the sequence in which records are 

accessed is controlled by the programmer. The desired 

record is accessed by placing its relative record number in 
a relative key data item. 

In the dynamic access mode, the programmer may change at 
will from sequential access to random access using 
appropriate forms of input-output statements. 



Current Record Pointer 



The current record pointer is a conceptual entity used in 
this document to facilitate specification of the next record 
to be accessed within a given file. The concept of the 
current record pointer has no meaning for a file opened in 
the output mode. The setting of the current record pointer 
is affected only by the OPEN, READ, and START statements. 



1-0 Status 



If the FILE STATUS clause is specified in a file control 
entry, a value is placed into the specified two-character 
data item during the execution of an OPEN, CLOSE, READ, 
WRITE, REWRITE, DELETE, or START statement and before any 
applicable USE procedure is executed, to indicate to the 
COBOL program the status of that input-output operation: 



Status Key 1 

The leftmost character position of the FILE STATUS data item 
is know as status key 1 and is set to indicate one of the 
following conditions upon completion of the input-output 
operation : 

•0' - Successful Completion. The input-output was 
successfully executed. 

' 1* - At End. The statement was unsuccessfully 
executed as a result of an attempt to read a record 
when no next logical record exists in the file. 
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•2 1 - Invalid Key. The input-output statement was 
unsuccessfully executed as a result of one of the 
following : 

Duplicate Key 
No Record Found 
Boundary Violation 

'3* - Permanent Error. The input-output statement was 
unsuccessfully executed as the result of an 
input-output error, such as data check, parity error, 
or transmission error. 

•9 1 - General Error. The input-output statement was 
unsuccessfully executed as a result of a condition that 
is specified by the value of status key 2. 



Status Key 2 

The rightmost character position of the FILE STATUS data 
item is know as status key 2 and is used to further describe 
the results of the input-output operation. This character 
will contain a value as follows: 

If no further information is available concerning the 
input-output operation, then status key 2 contains a 
value of ' * . 

When status key 1 contains a value of '2' indicating an 
INVALID KEY condition, status key 2 is: 

'2' indicating a duplicate key value. An attempt has 
been made to write a record that would create a 
duplicate key. 

'3' indicating no record found. An attempt has been 
made to access a record, identified by a key, and that 
record does not exist in the file. 

'4' indicating a boundary violation. An attempt has 
been made to write beyond the externally-defined 
boundaries of a file. 
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When status key 1 contains a value of '9' indicating an 
operating system error condition, the value of status 
key 2 is: 

'0' indicating invalid operation. An attempt has been 
made to execute a DELETE, READ, REWRITE, START, or 
WRITE statement which conflicts with the current open 
mode of the file or a sequential access DELETE or 
REWRITE statement not preceded by a successful READ 
statement. 

'I 1 indicating file not opened. This condition 
indicates that an attempt has been made to execute a 
DELETE, START, UNLOCK, READ, WRITE, REWRITE, or CLOSE 
statement on a file which is not currently open. 

•2* indicating file not closed. An attempt has been 
made to execute an OPEN statement on a file that is 
currently open. 

•3' indicating file not available. An attempt has 
been made to execute an OPEN statement for a file 
closed WITH LOCK or to OPEN a file LOCKed by another 
user. 

'4' indicating invalid OPEN. An attempt has been made 
to execute an OPEN statement for a file with no 
external correspondence or a file having inconsistent 
parameters. 

'5' indicating invalid device. This condition 
indicates that an attempt has been made to open a file 
having parameters (e.g., open mode or organization) 
which conflict with the device assignment (RANDOM, 
INPUT, PRINT,...). 



'6' indicating an undefined current record pointer 
status. This condition indicates that an attempt has 
been made to execute a sequential READ statement after 
the occurrence of an unsuccessful READ or START 
statement without an intervening successful CLOSE and 
OPEN. 
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'7' indicating an invalid record length. This 
condition indicates that an attempt has been made to 
OPEN a file that was defined with a maximum record 
length different from the externally defined maximum 
record length different form the externally defined 
maximum record length, or to execute a WRITE statement 
that specifies a record with a length smaller than the 
minimum or larger than the maximum record size, or a 
REWRITE statement when the new record length is 
different from that of the record to be rewritten. 

'9' indicating an attempt has been made to READ a 
record which is locked. This error is returned only 
if an applicable USE procedure and a FILE STATUS data 
item are declared for the file. Otherwise the read 
statement is retried until the record is unlocked. 



The INVALID KEY Condition 

The INVALID KEY condition can occur as a result of the 
execution of a START, READ, WRITE, REWRITE, or DELETE 
statement. 

When the INVALID KEY condition is recognized, the System 
takes these actions in the following order: 

A value is placed into the FILE STATUS data item, if 
specified for this file, to indicate a INVALID KEY 
condition. 

If the INVALID KEY phrase is specified in the statement 
causing the condition, control is transferred to the 
INVALID KEY imperative statement. Any USE procedure 
specified for this file is not executed. 

If the INVALID KEY phrase is not specified, but a USE 
procedure is specified, either explicitly or implicitly 
for this file, that procedure is executed. 

When the INVALID KEY condition occurs, execution of the 
input-output statement which recognized the condition 
is unsuccessful and the file is not affected. 
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The AT END Condition 



The AT END condition can occur as a result of the execution 
of a READ statement. When the AT END condition occurs, 
execution of the READ statement is unsuccessful. 
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INDEXED ORGANIZATION INPUT-OUTPUT 

Indexed input-output statements in the Procedure Division 
are the CLOSE, DELETE, OPEN, READ, REWRITE, START, UNLOCK 
and WRITE statements. 



Function 

Indexed input-output provides a capability to access records 
of a mass storage file in either a random or sequential 
manner. Each record in a nonsequential organization file is 
uniquely identified by a key. 



Organization 

A file whose organization is indexed is a mass storage file 
in which data records may be accessed by the value of a key 
A record description may include one or more key data 
items, each of which is associated with an index. Each 
index provides a logical path to the data records according 
to the contents of a data item within each record which is 
the recorded key for that index. 

The data item named in the RECORD KEY clause of the file 
control entry for a file is the prime record key for that 
file. For purposes of inserting, updating and deleting 
records in a file, each record is identified solely by the 
value of its prime record key. This value must, therefore, 
be unique and must not be changed when updating the record. 



Access Modes 

In the sequential access mode, the sequence in which records 
are accessed is the ascending order of the keys of all 
records which currently exist within the file. 

In the random access mode, the sequence in which records are 
accessed is controlled by the programmer. For indexed 
files, the desired record is accessed by placing the value 
of its record key in a record key data item. 

In the dynamic access mode, the programmer may change at 
will from sequential access to random access using 
appropriate forms of input-output statements. 
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Current Record Pointer 



The current record pointer is a conceptual entity used in 
this document to facilitate specification of the next record 
to be accessed within a given file. The concept of the 
current record pointer has no meaning for a file opened in 
the output mode. The setting of the current record pointer 
is affected only by the OPEN, READ, and START statements. 



1-0 Status 



If the FILE STATUS clause is specified in a file control 
entry, a value is placed into the specified two-character 
data item during the execution of an OPEN, CLOSE, READ, 
WRITE, REWRITE, DELETE, or START statement and before any 
applicable USE procedure is executed, to indicate to the 
COBOL program the status of that input-output operation: 



Status Key 1 

The leftmost character position of the FILE STATUS data item 
is know as status key 1 and is set to indicate one of the 
following conditions upon completion of the input-output 
operation: 

'0' - Successful Completion. The input-output was 
successfully executed. 

•I 1 - At End. The Format 1 READ statement was 
unsuccessfully executed as a result of an attempt to 
read a record when no next logical record exists in the 
file. 

'2' - Invalid Key. The input-output statement was 
unsuccessfully executed as a result of one of the 
following: 

Sequence Error 
Duplicate Key 
No Record Found 
Boundary Violation 
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'3' - Permanent Error. The input-output statement was 
unsuccessfully executed as the result of an 
input-output error, such as data check, parity error, 
or transmission error. 

'9' - General Error. The input-output statement was 
unsuccessfully executed as a result of a condition that 
is specified by the value of status key 2. 



Status Key 2 

The rightmost character position of the FILE STATUS data 
item is known as status key 2 and is used to further 
describe the results of the input-output operation. This 
character will contain a value as follows: 

If no further information is available concerning the 
input-output operation, then status key 2 contains a 
value of ' ' . 

When status key 1 contains a value of 0, indicating a 
successful completion, status key 2 may contain a value 
of 2 indicating a duplicate key. This condition 
indicates : 

For a READ statement, the key value for the current key 
of reference is equal to the value of that same key in 
the next record within the current key of reference. 

For a WRITE or REWRITE statement, the record just 
written created a duplicate key value for at least one 
alternate record key for which duplicates are allowed. 

When status key 1 contains a value of '2' indicating an 
INVALID KEY condition, status key 2 is: 

•l 1 indicating a sequence error for a sequentially 
accessed indexed file. The ascending sequence 
requirement of successive record key values has 
been violated or the record key value has been 
changed by the COBOL program between the 
successful execution of a READ statement and the 
execution of the next REWRITE statement for that 
file. 
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'2' indicating a duplicate key value. An attempt 
has been made to write a record that would create 
a duplicate key. 

'3' indicating no record found. An attempt has 
been made to access a record, identified by a key, 
and that record does not exist in the file. 

'4' indicating a boundary violation. An attempt 
has been made to write beyond the 
externally-defined boundaries of a file. 



When status key 1 contains a value of '9' indicating an 
operating system error condition, the value of status key 2 
is : 

'#' indicating invalid operation. An attempt has been 
made to execute a DELETE, READ, REWRITE, START, OR 
WRITE statement which conflicts with the current open 
mode of the file or a sequential access DELETE or 
REWRITE statement not preceded by a successful READ 
statement . 

'1' indicating file not opened. This condition 
indicates an attempt has ben made to execute a delete, 
start, unlock, read, write, rewrite, or close statement 
or a file that is not currently open. 

'2' indicating file not closed. An attempt has been 
made to execute an OPEN statement on a file that is 
currently open. 

'3' indicating file not available. An attempt has been 
made to execute an OPEN statement for a file closed 
with LOCK or to OPEN a file LOCKed by another user. 

'4' indicating invalid open. An attempt has been made 

to execute an OPEN statement for a file with no 

external correspondence or a file having inconsistent 
parameters. 

'5' indicating invalid device. This condition 
indicates that an attempt has been made to open a file 
having parameters (e.g., open mode or organization 
which conflict with the device assignment (RANDOM, 
INPUT, PRINT, ...)). 
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been made to execute a sequential READ statement after 
the occurrence of an unsuccessful READ or START 
statement without an intervening successful CLOSE and 
OPEN. 

'7' indicating an invalid record length. this 
condition indicates that an attempt has been made to 
open a file that was defined with a maximum record 
length different from the externally defined maximum 
record length, or to execute a write statement that 
specifies a record with a length smaller than the 
minimum or larger than the maximum record size, or a 
REWRITE statement when the new record length is 
different from that of the record to be rewritten. 

'8' indicating an invalid indexed file. This condition 

indicates that the indexed file contains inconsistent 

data. This is a catastrophic error from which there is 
no recovery at the present time. 

'9' indicating an attempt has been made to READ a 
record which is locked. This error is returned only if 
an applicable USE procedure and a FILE STATUS data item 
are declared for the file. Otherwise the read 
statement is retried until the record is unlocked. 



The INVALID KEY Condition 

The INVALID KEY condition can occur as a result of the 
execution of a START, READ, WRITE, REWRITE, or DELETE 
statement . 

When the INVALID KEY condition is recognized, the System 
takes these actions in the following order: 

A value is placed into the FILE STATUS data item, if 
specified for this file, to indicate an INVALID KEY 
condition. 
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If the INVALID KEY phrase is specified in the statement 
causing the condition, control is transferred to the 
INVALID KEY imperative statement. Any USE procedure 
specified for this file is not executed. 

If the INVALID KEY phrase is not specified, but a USE 
procedure is specified, either explicitly or 
implicitly, for this file, that procedure is executed. 

When the INVALID KEY condition occurs, execution of the 
input-output statement which recognized the condition 
is unsuccessful and the file is not affected. 



The AT END Condition 

The AT END condition can occur as a result of the execution 
of a READ statement. When the AT END condition occurs, 
execution of the READ statement is unsuccessful. 



Radio /hack 

- 152 - 



RM/COBOL Language TRS-80 ® ACCEPT . . . FROM 



PROCEDURAL STATEMENTS 



The ACCEPT . . . FROM Statement 



The ACCEPT statement causes the information requested to be 
transferred to the data item specified by identifier-1 
according to the rules of the MOVE statement. DATE, DAY, 
and TIME are conceptual data items and, therefore, are not 
described in the COBOL program. 



FORMAT 

ACCEPT identifier-1 FROM { DATE } 

{ DAY } 
{ TIME } 

DATE is composed of the data elements year of century, month 
of year, and day of month. The sequence of the data element 
codes is from high order to low order (left to right), year 
of century, month of year, and day of month. Therefore, 
July 1, 1979 would be expressed as 790701. DATE, when 
accessed by COBOL program as an unsigned elementary numeric 
integer data item six digits in length. 

DAY is composed of the data elements year of century and day 
of year. The sequence of the data element codes is from 
high order to low order (left to right) year of century, day 
of year. Therefore, July 1, 1979 would be expressed as 
79181. DAY, when accessed by a COBOL program as an unsigned 
elementary numeric integer data item five digits in length. 

TIME is composed of the data elements hours, minutes, 
seconds and hundredths of a second. TIME is based on 
elapsed time after midnight on a 24-hour clock basis — thus, 
2:41 p.m. would be expressed 14410000 . TIME, when accessed 
by a COBOL program as an unsigned elementary numeric integer 
data item eight digits in length. The minimum value of TIME 
is 00000000; the maximum value of time is 23595999. 



ACCEPT . . . FROM Examples 

ACCEPT YEAR -DAY FROM DAY. 
ACCEPT CLOCK FROM TIME. 
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The ACCEPT Statement (Terminal 1-0) 



The ACCEPT statement causes low volume data to be accepted 
from the CRT terminal and transferred to the specified data 
item. ACCEPT statement phrases allow the specification of 
position, form and format of the accepted data. 

FORMAT 

ACCEPT {identifier-1 [, UNIT {identifier-2}] 

{ literal-1 } 
[, LINE {identifier-3 }] [, POSITION {identifier-4}] 
{literal-2 } Uiteral-3 } 

E, SIZE {identifier-5 }] [, PROMPT [literal-5]] 

[. ECHO [, CONVERT ] [ y TABj [ ERASE ] E, NO BEEP ] 
[,OEF] [,{ HIGH }J [, BLINK ] [ y REVERSE ]} ... 

{ LOW } 
[, 0N EXCEPTION identifier-6 imperative-statement] 

The ACCEPT statement causes the transfer of data from the 
CRT device. This data replaces the contents of the data item 
named by identifier-1. The receiving data time must have 
usage DISPLAY if ECHO is specified; otherwise, it may have 
any usage except INDEX. 

The receiving field will ACCEPT data as though a group move 
is being performed, thus an ACCEPT into an edited field will 
result in the omission of editing. 

The size of a field ACCEPTed is limited by the rightmost 
column position of the CRT. At execution, a field that 
would be split between two lines will be truncated at the 
end of the first line. 

When an ACCEPT statement contains more than one operand, the 
values are transferred in the sequence in which the operands 
are encountered. ACCEPT phrases apply to the previously 
specified identif ier-lonly . A subsequent identifier-1 in 
the same ACCEPT statement will be treated as if no previous 
phrases have been specified. 

An ACCEPT statement may contain no more than one ON 
EXCEPTION phrase, and if present it must be associated with 
the last (or only) identifier-1. 
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NOTE: Features which require support of the host 
operating system and/or terminal hardware may not be 
supported on all systems. Any features which are not 
supported will compile correctly, but will be ignored 
at runtime. See the User's Guide for specific details 



The UNIT Phrase 



The UNIT phrase must be the first phrase if used. The other 
phrases may be written in any order. 

The value of identifier-2 or literal-1 in the UNIT phrase 
specifies the station identifier of the CRT from which the 
data is to be accepted. If the UNIT phrase is omitted, the 
CRT which executed the program will be accessed. 



The LINE Phrase 



The value of identifier-3 or literal-2 in the LINE phrase 
specifies the line number from the data is to be accepted 
from the screen of the CRT terminal, with 1 being the top 
line. If the value is greater than the number of lines on 
the CRT screen, it is adjusted to the bottom line after the 
screen has been scrolled to the maximum line number +1. 

If the value is zero or the LINE phrase is not present in an 
ACCEPT statement, then data is to be accepted from the next 
line below the current position of the cursor on the CRT 
screen unless the value specified in the POSITION phrase is 
also zero, in which case the data is to be accepted from the 
line at the current position of the cursor on the CRT 
screen. 



The POSITION Phrase 

The value of identifier-4 or literal-3 in the POSITION 
phrase specifies the number of the character positions to 
which the cursor is to be positioned within the specified 
line prior to the accepting of data from the CRT terminal, 
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with 1 being the leftmost character position within a line. 
If the value is greater than the maximum number of 
characters within a line on the CRT screen, it is adjusted 
to the next row and decremented by the maximum number of 
characters within a line. 

If the POSITION phrase is not specified, a value of 1 is 
assumed for the first accepted operand and for each 
additional operand accepted in the same statement. If a 
value of is specified, the data is to be accepted starting 
at the next field on the CRT screen (starting character 
position plus size of last ACCEPT or DISPLAY). 



The SIZE Phrase 



The value of identifier-5 or literal-4 in the SIZE phrase 
specifies the maximum number of characters to be accepted 
from the CRT terminal, overriding the Data Division 
definition of the field. If the SIZE phrase is not present 
or a value of is specified, then the size of identifier-1 
(identifier-5, ...) is used. A size greater than 80 is 
treated as equal to 80. 

The size of the accepted field is determined by the SIZE 
phrase. The number of characters transferred from the CRT 
is less than or equal to the size of the accepted field. 
Input is terminated by depression of the return key (which 
is not considered part of the input). The number of 
characters actually input is the size of the source in the 
following: 

If the receiving item is not numeric, the accepted 
input is stored according to the rules of the MOVE 
statement for an alphanumeric source and destination. 
If the receiving item is described JUSTIFIED RIGHT, the 
clause will apply to the MOVE rules. 

If the receiving item is numeric, the accepted input is 
stored according to the rules of the MOVE statement for 
a numeric source and destination. If the CONVERT 
phrase is not specified, the source has the same scale 
as the receiving item. If the receiving item has a 
trailing sign and the CONVERT phrase is not specified, 
the input must contain digits followed by a sign 
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character. If the CONVERT phrase is specified, then 
the input is converted according to the rules of the 
CONVERT phrase. The CONVERT phrase is recommended when 
accepting numeric items. 



The PROMPT Phrase 



The presence of the key word PROMPT in an ACCEPT statement 
causes the data to be accepted with prompting. The action 
of prompting is to display fill characters on the CRT screen 
in the positions from which data is to be accepted. 
Literal-5 must be a single character nonnumeric literal 
which specifies the fill character to be used in prompting. 
If literal-5 is omitted in the PROMPT phrase, then an 
underscore will be used as the fill character. 

When the PROMPT phrase is not specified, then the data is to 
be accepted without prompting; the original contents of the 
field on the CRT will be undisturbed before accepting input. 



The ECHO Phrase 



The presence of the key word ECHO within an ACCEPT statement 
causes the contents of identifier-1 to be displayed on the 
screen of the CRT terminal. Conversion (see CONVERT 
Phrase), decimal alignment, and justification are performed 
prior to display. If the specified size is greater than the 
size of the receiving data-item, the data-item is displayed 
right justified in the accept field with leading blanks. If 
the specified size is less than the size of the receiving 
data-item, the display is truncated on the right. When the 
ECHO phrase is not specified, the original input data 
remains in the accept field. 



The CONVERT Phrase 

If the receiving data-item is numeric, the presence of the 
key word CONVERT within an ACCEPT statement causes the 
conversion of an accepted field to a trailing-signed decimal 
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field. The trailing-sign decimal field is then stored in 
identif ier-1. The conversion is accomplished by a 
left-to-right scan and the rules: 

Set the sign according to the rightmost sign given in 
the input or positive if no sign is present. 

Set the scale according to the rightmost period given 
in the input or to zero if no period is present. If 
the DECIMAL POINT IS COMMA clause was specified in the 
source program, a comma replaces the period in 
determining the scale. 

Delete all nonnumeric characters from the accepted 

X. JL vH£ JL \JL * 

When the CONVERT phrase is not specified, or the receiving 
data-item is not numeric, then the data is to be stored 
without the above conversion. 



The TAB Phrase 



The presence of the key word TAB is an ACCEPT statement 
causes a wait for a return, backspace, or field delete key 
(or other terminator in conjunction with an EXCEPTION) in 
reaching the end of the input field. If the key word TAB is 
omitted, input will automatically be terminated if the end 
of the input field is encountered. 



The ERASE Phrase 

The presence of the key word ERASE within an ACCEPT 
statement causes the screen of the CRT to be erased prior to 
cursor positioning. When the ERASE phrase is not specified, 
then the screen is not erased prior to cursor positioning. 
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The NO BEEP Phrase 

The presence of the key words NO BEEP in an ACCEPT statement 
causes suppression of the beep signal upon cursor 
positioning. If the key words NO BEEP are omitted, a beep 
signal will occur upon cursor positioning prior to data 
input. 



The OFF Phrase 

The presence of the key word OFF within an ACCEPT statement 
causes data to be input from the terminal keyboard but not 
displayed to the screen. Blank characters are displayed to 
the screen in lieu of data characters. 



The HIGH/LOW Phrase 

The presence of the key word HIGH or LOW causes the PROMPT 
character and the accepted data (if CONVERT and/or ECHO was 
specified) to be displayed at the specified intensity. 

When HIGH or LOW is not specified, the default display is 
HIGH. 



The BLINK Phrase 

The presence of the key word BLINK causes the PROMPT 
character, and any displayed data, to be BLINKed. When 
BLINK is not specified, no BLINK is provided. 



The REVERSE Phrase 

The presence of the key word REVERSE causes the PROMPT 
character, and any displayed data, to be displayed in a 
reverse image mode. When REVERSE is not specified, normal 
display is provided. 
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The ON EXCEPTION Phrase 

The presence of ON EXCEPTION causes the imperative-statement 
to be executed if an invalid character is entered. The 
invalid character (in ASCII format) will be placed in 
identifier-6 prior to execution of the imperative-statement. 
The invalid character may be determined by declaring 
identifier-6 as USAGE COMP-1 and testing for its ASCII 
value. 

When ON EXCEPTION and CONVERT are both specified and a 
conversion error occurs, an error code of "98" is returned 
in identifier-6. 



ACCEPT Examples 



ACCEPT ANSWER-1, ANSWER-2. 

ACCEPT START-VALUE LINE 1, POSITION K, 
PROMPT, ECHO, CONVERT. 

ACCEPT NEXT-N POSITION 0, 
PROMPT, ECHO. 

ACCEPT YEAR, LINE YR-LN, POSITION YR-POS; 
MONTH, LINE MN-LN, POSITION MN-POS. 
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The ADD Statement 



The ADD statement causes two or more numeric operands to be 
summed and the result to be stored. 



FORMAT 1 

ADD {identifier-1} [ , identif ier-2] ... 
{literal-1 } [,literal-2 ] 

TO identifier-m [ ROUNDED 3 

[; ON SIZE ERROR imperative-statement] 

FORMAT 2 

ADD { identifier-1 }, {identif ier-2} [, identif ier-3] ... 
{literal-1 } {literal-2 } [,literal-3 ] 

GIVING identifier-m [ ROUNDED ] 

[ ; CN SIZE ERROR imperative-statement] 



FORMAT 3 

ADD { CORRESPONDING } identifier-1 TO identif ier-2 [ ROUNDED ] 
{ CORR } 

[ ; CN SIZE ERROR imperative-statement] 

In Format 1, the values of the operands preceding the word 
TO are added together, then the sum is added to the current 
value of identifier-m storing the result immediately into 
identifier-m. 

In Format 2, the values of the operands preceding the word 
GIVING are added together, then the sum is stored as the new 
value of identifier-m. 



Radia /hack 

- 161 - 



ADD TRS-8n ® RM/COBOL Language 



In Formats 1 and 2, each identifier must refer to an 
elementary numeric item, except that in Format 2 
identifier-m following the word GIVING must refer to either 
an elementary numeric item or an elementary numeric edited 
item. 

In Format 3, data items in identif ier~l are added to and 
stored in the corresponding data items in identif ier-2. 

In Format 3, each identifier must refer to a group item. 

Each literal must be a numeric literal. 

The ROUNDED Phrase 

The ADD statement may optionally include the ROUNDED phrase. 

If, after decimal point alignment, the number of places in 
the fraction of the result of the arithmetic operation is 
greater than the number of places provided for the fraction 
of the resultant-identifier, truncation is relative to the 
size provided for the resultant-identifier. When rounding 
is requested, the absolute value of the resultant-identifier 
is increased by one (1) whenever the most significant digit 
of the excess is greater than or equal to five (5). 

When the low-order integer positions in a resultant 
identifier are represented by the character 'P' in the 
picture for that resultant-identifier, rounding or 
truncation occurs relative to the rightmost integer position 
for which storage is allocated. 



The SIZE ERROR Phrase 

If, after appropriate decimal point alignment, the absolute 
value of the result exceeds the largest value that can be 
contained in the associated resultant-identifier, a size 
error condition exists. If the ROUNDED phrase is specified, 
rounding takes place before checking for size error. 

If the CORRESPONDING phrase is specified, and any of the 
individual additions produces a size error condition, the 
imperative-statement is not executed until all of the 
individual additions are completed. 
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If the resultant-identifier has COMPUTATIONAL -3 usage, size 
error is correctly detected only for data items declared 
with an odd length picture clause. Therefore all COMP-3 
data items should be declared with an odd number of 
character positions. 

If the SIZE ERROR phrase is not specified and a size error 
condition exists, the value of the resultant-identifier is 
undefined. 

If the SIZE ERROR phrase is specified and a size error 
condition exists, the value of the resultant-identifier is 
not altered and the imperative statement of the SIZE ERROR 
phrase is executed. 



The CORRESPONDING Phrase 

If the CORRESPONDING phrase is used, selected items within 
identifier-1 are ADDed to, and the result stored in, the 
corresponding items in identif ier-2. 

Data items referenced by the CORRESPONDING phrase must 
adhere to the following rules: 

A data item in identifier-1 and a data item in 
identifier-2 must not be designated by the key word 
FILLER and must not have the same data-name and the 
same qualifiers up to, but not including, identif iers-1 
and identifier-2. 

Both of the data items must be elementary numeric data 
items . 

The description of identifier-1 and identifier-2 must 
not contain level-number 66, 77, or 88 or the USAGE IS 
INDEX clause. 

A data item that is subordinate to identifier-1 or 
identifier-2 and contains a REDEFINES, RENAMES, OCCURS, 
or USAGE IS INDEX clause is ignored, as well as those 
data items subordinate to the data item that contains 
the REDEFINES, OCCURS, or USAGE IS INDEX clause. 
However, identifier-1 and identifier-2 may have 
REDEFINES or OCCURS clauses or be subordinate to data 
items with REDEFINES or OCCURS clauses. 
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CORR is an abbreviation for CORRESPONDING. 



ADD Examples 



ADD SALARY TO SALARY. 

(doubles the value of SALARY) 

ADD JOHNS-PAY, PAULS-PAY, ALBERTS-PAY 
GIVING COMPANY-PAY. 

ADD ACCELERATION TO VELOCITY ROUNDED 

ON SIZE ERROR GO TO SOUND -BARRIER. 

ADD CORRESPONDING ELEMENT (X) 
TO ELEMENT (Y) . 

ADD CORR SUB-TOTAL-RECORD TO TOTAL-RECORD ROUNDED 
ON SIZE ERROR GO TO ERR. 
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The ALTER Statement 



The ALTER statement modifies a predetermined sequence of 
operations . 



FORMAT 



ALTER procedure-name-1 TO [ PROCEED TO ] procedure-name-2 
[, procedure-name-3 TO [PROCEED TO] procedure-name- 4] 



Each procedure-name-1 , procedure-name-3, ..., is the name of 
a paragraph that contains a single sentence consisting of a 
GO TO statement without the DEPENDING phrase. 

Each procedure-name-2, procedure-name-4, . .., is the name of 
a paragraph or section in the Procedure Division. 

Execution of the ALTER statement modifies the GO TO 
statement in the paragraph named procedure-name-1, 
procedure-name-3, ..., so that subsequent executions of the 
modified GO TO statements cause transfer of control to 
procedure-name-2, procedure-name-4, ..., respectively. 
Modified GO TO statements in independent segments may, under 
some circumstances, be returned to their initial states. 

A GO TO statement in a section whose segment-number is 
greater than or equal to 50 must not be referred to by an 
ALTER statement in a section with a different 
segment -number . 
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The CALL Statement 



The CALL statement causes control to be transferred from one 
object program to another, within the run unit. 



FORMAT 

CALL {identifier-1} [ USING data-name-1 [ ,data-name-2] ...] 
{literal-1 } 



The execution of a CALL statement causes control to pass to 
the program whose name is specified by the value of 
literal-1 or identifier-1, the 'called' program. 

Literal-1 must be a nonnumeric literal. 

Identifier-1 must be defined as an alphanumeric data item 
such that its value can be a program name. 

The called program can be another COBOL program or an 
assembly language program. Refer to the User's Guide for 
specific details. 

Called programs may contain CALL statements. However, a 
called program must not contain a CALL statement that 
directly or indirectly calls the calling program. 

The CALL statement may appear anywhere within a segmented 
program. When a CALL statement appears in a section with a 
segment-number greater than or equal to 50, the EXIT PROGRAM 
statement returns control to the calling program. 



The USING Phrase 



The data-names specified by the USING phrase of the CALL 
statement indicate those data items available to a calling 
program that may be referred to in the called program. The 
order of appearance of the data-names in the USING phrase of 
the CALL statement and the USING phrase in the Procedure 
Division header is critical. Corresponding data-names refer 
to a single set of data which is available to the called and 
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calling program. The correspondence is positional, not by 
name. In the case of index-names, no such correspondence is 
established. Index-names in the called and calling program 
always refer to separate indices. 

The USING phrase is included in the CALL statement only if 
there is a USING phrase in the Procedure Division header of 
the called program, and the number of operands in each using 
phrase must be identical. 

Each of the operands in the USING phrase must have been 
defined as a data item in the File Section, Working-Storage 
Section, or Linkage Section, and must have a level-number of 
01 or 77. Data-name-1, data-name-2, ..., may be qualified 
when they reference data items defined in the File Section. 



CALL Examples; 



CALL "SUBPRG1" . 

CALL REORDER 

USING TABLE, INDEX-1, RESULT, 
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The CLOSE Statement (Sequential 1-0) 

The CLOSE statement terminates the processing of files. 

FORMAT 

CLOSE file-name-1 [{ REEL } [WITH NO REWIND ]] 

{ UNIT } 

[WITH {NO REWIND } ] 
{ LOCK } 

[,file-name-2 [{ REEL } [WITH NO REWIND ] ] ] ... 
{ UNIT } 

[WITH {NO REWIND } ] 
{LOCK } 



The function of a CLOSE statement (with no options) is to 
cause the operating system to close the file. For files 
opened for OUTPUT, the operating system also writes an EOF 
as it closes the file. 

If a STOP RUN statement is executed prior to closing the 
file, the operating system will close the file without an 
EOF. 

A CLOSE statement may only be executed for a file in an open 
mode. 

Once a CLOSE statement has been executed for a file, no 
other statement can be executed that references that file, 
either explicitly or implicitly unless an intervening OPEN 

S uaLSIuGn L rOr tllat II iG IS SXSCUuSu • 

The execution of a CLOSE statement causes the value of the 
FILE STATUS data-item, if any, associated with file-name-1 
( f ile-name-2, ...) to be updated. 
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The REEL and UNIT Phrases 

The CLOSE REEL and CLOSE UNIT statements are documentary 
only and may be included or omitted at the user's 
discretion . 



The NO REWIND Phrase 

CLOSE WITH NO REWIND prevents page advancing on files 
assigned to the printer. It has no effect on other files. 



The LOCK Phrase 

The function of the CLOSE WITH LOCK statement is to perform 
the CLOSE function and set a flag to prevent the file from 
being OPENed again during execution of this program. 



CLOSE Examples 

CLOSE TRANSACTION-FILE . 

CLOSE DATA-BASE WITH LOCK. 

CLOSE PRINT-FILE WITH NO REWIND 
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The CLOSE Statement (Relative and Indexed I-O) 

The CLOSE Statement terminates the processing of files. 

FORMAT 

CLOSE file-name-1 [WITH LOCK ] 

[,file-name-2 [WITH LOCK 3 ] ... 



The function of a CLOSE statement (with no options) is to 
cause the operating system to close the file. For files 
opened for OUTPUT, the operating system also writes an EOF 
prior to closing the file. 

If a STOP RUN statement is executed prior to closing the 
file, the operating system will close the file without an 
EOF. 

The files referenced in the CLOSE statement need not all 
have the same organization or access. 

A CLOSE statement may only be executed for a file in an open 
mode . 

If a CLOSE statement has been executed for a file, no other 
statement can be executed that references that file, either 
explicitly or implicitly, unless an intervening OPEN 
statement for that file is executed. 

The execution of the CLOSE statement causes the value of the 
specified FILE STATUS data item, if any, associated with 
file-name-1 ( f ile-name-2, ...) to be updated. 



The LOCK Phrase 

The function of the CLOSE WITH LOCK statement is to perform 
the CLOSE function and set a flag to prevent the file from 
being OPENed during the execution of the program. 
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CLOSE Examples: 

CLOSE TRANSACTION-FILE. 
CLOSE DATA-BASE WITH LOCK. 
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The COMPUTE Statement 

The COMPUTE statement assigns the value of an arithmetic 
expression to a data item. 

FORMAT 

COMPUTE identifier-1 [ ROUNDED ] = arithmetic=expression 

[; ON SIZE ERROR imperative-statement] 



Identifier-1 must refer to either an elementary numeric item 
or an elementary numeric edited item. 

An arithmetic expression consisting of a single identifier 
or literal provides a method of setting the value of 
identifier-1 equal to the value of the single identifier or 
literal. 

The COMPUTE statement allows the user to combine arithmetic 
operations without the restrictions on composite operands 
and/or receiving data items imposed by the arithmetic 
statements ADD, SUBTRACT, MULTIPLY and DIVIDE. 

Note: Exponentiation is not supported. 



The ROUNDED Phrase 

The COMPUTE statement may optionally include the ROUNDED 
phrase. If, after decimal point alignment, the number of 
places in the fraction of the result of an arithmetic 
operation is greater than the number of places provided for 
the fraction of the identifier-1, truncation is relative to 
the size provided for the identifier-1. When rounding is 
requested, the absolute value of the resultant-identifier is 
increased by one (1) whenever the most significant digit of 
the excess is greater than or equal to five (5). 

When the low-order integer positions in an identifier-1 are 
represented by the character 'P' in the picture for that 
identifier, rounding or truncation occurs relative to the 
rightmost integer position for which storage is allocated. 
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The SIZE ERROR Phrase 

If, after appropriate decimal point alignment, the absolute 
value of the result exceeds the largest value that can be 
contained in identif ier-1, a size error condition exists. 
If the ROUNDED phrase is specified, rounding takes place 
before checking for size error. 

If identifier-1 has COMPUTATIONAL- 3 usage, size error is 
detected only for data items declared with an odd length 
picture clause. Therefore all COMP-3 data items should be 
declared with an odd number of character positions. 

Division by zero always causes a size error condition. 

If the SIZE ERROR phrase is not specified and a size error 
condition exists, the value of the identifier-1 is 
undefined. 

If the SIZE ERROR phrase is specified and a size error 
condition exists, the value identifier-1 is not altered and 
the imperative-statement in the SIZE ERROR phrase is 
executed. 



COMPUTE Examples 

COMPUTE SALARY ROUNDED = WAGES * HOURS. 

COMPUTE SECONDS = ( ( ( HRS * 60 ) + MIN ) * 60 ) + SEC. 

COMPUTE AVERAGE = TOTAL / COUNT 

ON SIZE ERROR MOVE TO AVERAGE. 

COMPUTE PAY (DATE) ROUNDED 
= RATE * 8. 
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The DELETE Statement (Relative and Indexed 1-0) 



The DELETE statement logically removes a record from a mass 
storage file. 

FORMAT 

DELETE file-name RECGBD [ ; INVALID KEY inperative-statanent} 

After the successful execution of a DELETE statement, the 
identified record has been logically removed from the file 
and can no longer be accessed. 

The execution of a DELETE statement does not affect the 
contents of the record area associated with file-name. The 
associated file must be opened in the 1-0 mode at the time 
of execution of this statement. 

For files in the sequential access mode, the last input- 
output statement executed for file-name prior to the 
execution of the DELETE statement must have been a 
successfully executed READ statement. The system logically 
removes from the file the record that was accessed by that 
READ statement. 

For a file in random or dynamic access mode, the system 
logically removes from the file that record identified by 
the contents of the key data item associated with file-name. 
If the file does not contain the record specified by the 
key, and INVALID KEY condition exists. 

The execution of the DELETE statement causes the value of 
the specified FILE STATUS data item, if any, associated with 
file-name to be updated. 

The INVALID KEY PHRASE 

The INVALID KEY phrase must not be specified for a DELETE 
statement which references a file which is in sequential 
access mode. 

The INVALID KEY phrase must be specified for a DELETE 
statement which references a file which is not in sequential 
access mode and for which an applicable USE procedure is not 

The current record pointer is not affected by the execution 
of a DELETE statement. 
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The DISPLAY Statement 



The DISPLAY statement causes low volume data to be displayed 
on the specified CRT terminal. DISPLAY statement phrases 
allow the specification of position, form and format of the 
displayed data. 



FORMAT 

DISPLAY {{identifier-1} [. UNIT {identifier-2}] 
{literal-1 > {literal-2 } 

[, LINE {identifier-3}] [, POSITION Udentifier-4}] 
{literal-3 } {literal-4 } 

[, SIZE {identifier-5}] [, RKEP ] [/ ERASE ]} 
{literal-5 } 

[,{ HIGH }J [, BLINK ] [, REVISE ]} ... 
{LOW } 



The DISPLAY statement causes the contents of each operand 
(identifier-1 or literal-1) to be transferred to the CRT 
device in the order listed. The sending data item must have 
DISPLAY usage. 

When a DISPLAY statement contains more than one operand, the 
values of the operand are transferred in the sequence in 
which the operands are encountered. 

Note: Features which require support of the host 
operating system and/or terminal hardware may not be 
supported on all systems. Any features which are not 
supported will compile correctly, but will be ignored 
at runtime. See the User's Guide for specific details. 



The UNIT Phrase 

The UNIT phrase, if specified, must be written first. The 
other phrases may be written in any order. 
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The value of identifier-2 or literal-2 in the UNIT phrase 
specifies the station identifier of the CRT upon which the 
data is to be displayed. If the UNIT phrase is omitted, the 
CRT which executed the program will be accessed. 



The Line Phrase 

The value of identifier-3 or literal-3 in the LINE phase 
specifies the line number upon which the data is to be 
displayed on the screen of the CRT terminal, with one being 
the top line. If the value is greater than the number of 
lines on the CRT screen, it is adjusted to the maximum line 
number after the screen has been scrolled one line. If the 
value is zero or the LINE phrase is not present in a DISPLAY 
statement, then data is to be displayed on the next line 
below the current position of the cursor on the CRT screen 
unless the value specified in the POSITION phrase is also 
zero, in which case the data is to be displayed on the line 
at the current position of the cursor on the CRT screen. If 
incrementing to the next line generates a line number 
greater than the maximum number of lines on the CRT screen, 
the new line is displayed at the bottom. 



The POSITION Phrase 

The value of identifier-4 or literal-4 in the POSITION 
phrase specifies the number of the character to which the 
cursor is to be positioned within the specified line prior 
to the displaying of data on the screen on the CRT terminal, 
with 1 being the leftmost character position within a line. 
If the value is greater than the maximum number of 
characters within a line on the CRT screen, it is adjusted 
to the next row and decremented by the maximum number of 
characters within a line. 

If the POSITION phrase is not specified, a value of one is 
assumed for the first displayed operand and zero for each 
additional operand displayed in the same statement. If a 
value of zero is specified, the data is to be displayed 
starting at the next field on the CRT screen (starting 
character position plus size of the last ACCEPT or DISPLAY). 
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The SIZE Phrase 

The value of identifier-5 or literal-5 in the SIZE phrase 
specifies the number of characters to be displayed on the 
screen of the CRT terminal, overriding the Data Division 
definition of the fields. If the SIZE phrase is not present 
or a value of zero is specified, the size of identifier-1 or 
literal-1 is used. If literal-1 is a figurative constant, 
the literal has a size of one. A size greater than 80 is 
treated as equal to 80. 

If the size of the display field is less than the size of 
the sending data item, only the leftmost characters are 
displayed. If the specified size is greater than the size 
of the sending date item, the results are unpredictable. If 
the sending item is a figurative constant, the constant 
fills the display field. No conversions are made in the 
transfer to the display field. 



The BEEP Phrase 

The presence of the Key word BEEP within a DISPLAY statement 
causes a beep signal to occur on cursor positioning prior to 
the display of the data. If the BEEP key word is omitted, 
no signal is given on cursor positioning. 



The ERASE Phrase 

The presence of the key word ERASE within a DISPLAY 
statement causes the screen of the CRT terminal to be erased 
before the content of identifier-1 or literal-1 is displayed 
on the screen. When the ERASE phrase is not specified, then 
the screen is not erased prior to the display of the data. 



The HIGH/LOW Phrase 

The presence of HIGH or LOW causes the data to be displayed 
at the specified intensity. When HIGH or LOW is not 
specified, the default display is HIGH. 



The BLINK Phrase 

the presence of the key word BLINK causes the displayed data 
to be BLINKed. The normal mode is no blink. 
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The REVERSE Phrase 

The REVERSE key word causes the data to be displayed in 
REVERSE video. The normal mode is no reverse. 



DISPLAY Examples 

DISPLAY "FLIGHT ARRIVING AT GATE", LINE FLT-LN, 
POSITION 1, ERSE; GATE-NUMBER, HIGH, BLINK 

DISPLAY "ENTER JOB CODE: 

DISPLAY CRT-HEADER LINE 1 ERASE. 

DISPLAY ZEROES SIZE 5. 

DISPLAY QUOTE. 
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The DIVIDE Statement 



The DIVIDE statement divides one numeric data item into 
another and stores the quotient. 



FORMAT 1 

DIVIDE {identifier-1} INTO identifier-2 [ ROUNDED ] 
{literal-1 } 

[;0N SIZE ERROR imperative-statement] 

FORMAT 2 

DIVIDE {identifier-1} INTO {identifier-2} 
{literal-1 } {literal-2 } 

GIVING identifier-3 [ ROUNDED ] 

[;ON SIZE ERROR imperative-statement] 

FORMAT 3 

DIVIDE {identifier-1} BY {identifier-2} 
{literal-1 } {literal-2 } 

GIVING identifier-3 [ ROUNDED ] 

[;ON SIZE ERROR imperative-statement] 



In Format 1, the value of identifier-1 or literal-1 is 
divided into the value of identifier-2. The value of the 
dividend (identifier-2) is replaced by this quotient. 

In Format 2, the value of identifier-1 or literal-1 is 
divided into the value of identifier-2 or literal-2 and the 
result is stored in identifier-3. 

In Format 3, the value of identifier-1 or literal-1 is 
divided by the value of identifier-2 or literal-2 and the 
result is stored in identifier-3. 
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Each identifier must refer to an elementary numeric item, 
except that any identifier associated with the GIVING phrase 
must refer to either an elementary numeric item or an 
elementary numeric edited item. 

Each literal must be a numeric literal. 



The ROUNDED Phrase 

The DIVIDE statement may optionally include the ROUNDED 
phrase. 

If, after decimal point alignment, the number of places in 
the fraction of the result of an arithmetic operation is 
greater than the number of places provided for the fraction 
of the resultant-identifier, truncation is relative to the 
size provided for the resultant-identifier. When rounding 
is requested, the absolute value of the resultant-identifier 
is increased by one (1) whenever the most significant digit 
of the excess is greater than or equal to five (5). 

When the low-order integer positions in a resultant 
identifier are represented by the character ' P 1 in the 
picture for that resultant-identifier, rounding or 
truncation occurs relative to the rightmost integer position 
for which storage is allocated. 



The SIZE ERROR Phrase 

If, after appropriate decimal point alignment, the absolute 
value of the result exceeds the largest value that can be 
contained in the associated resultant-identifier, a size 
error condition exists. If the ROUNDED phrase is specified, 
rounding takes place before checking for size error. 

If the resultant-identifier has COMPUTATIONAL -3 usage, size 
error is detected only for data items declared with an odd 
length picture clause. Therefore all COMP-3 data items 
should be declared with an odd number of character 
positions . 

Division by zero always causes a size error condition. 
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If the SIZE ERROR phrase is not specified and a size error 

condition exists, the value of the resultant-identifier is 
undefined . 

If the SIZE ERROR phrase is specified and a size error 

condition exists, the value of the resultant-identifier is 
not altered and the imperative statement in the SIZE ERROR 
phrase is executed. 



DIVIDE Examples 

DIVIDE 10 INTO TOTAL -WORK -LOAD 
GIVING MORRISS-WORK-LOAD 

DIVIDE TOTAL-WORK-LOAD BY 2 . 5 

GIVING ALFREDS-WORK-LOAD ROUNDED 
ON SIZE ERROR GO TO ALFRED-QUIT. 

DIVIDE 2.5 INTO TOTAL. 
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The EXIT Statement 

The EXIT statement provides a common end point for a series 
of procedures or the logical end of a called program. 

FORMAT 

EXIT [ PROGRAM ], 

The EXIT statement must appear in a sentence by itself. 

The EXIT sentence must be the only sentence in the 
paragraph. 

An EXIT statement without the word PROGRAM serves only to 
enable the user to assign a procedure-name to a given point 
in a program. Such an EXIT statement has no other effect on 
the compilation or execution of the program. 

An execution of an EXIT PROGRAM statement in a CALLED 
program causes control to be passed to the calling program. 
Execution of an EXIT PROGRAM statement in a program which is 
not called behaves as if the statement were an EXIT 
statement without the word PROGRAM. 
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The GO TO Statement 

The GO TO statement causes control to be transferred from 
one part of the Procedure Division to another. 

FORMAT 1 

GO TO procedure-name-1. 

FORMAT 2 

GO TO procedure-name-1 [ , procedure-name-2] . . . , 

procedure-name-n DEPENDING ON identif ier-1. 

If a Format 1 GO TO statement appears in a consecutive 
sequence of imperative statements within a sentence, it must 
appear as the last statement in that sequence. 

When a Format 1 GO TO statement is executed, control is 
transferred to procedure-name-1 or to another procedure-name 
if the GO TO statement has been modified by an ALTER 
statement . 

When a paragraph is referenced by an ALTER statement, that 
paragraph can consist only of a paragraph header followed by 
a Format-1 GO TO statement. 

The DEPENDING ON Phrase 

When a Format 2 GO TO statement is executed, control is 
transferred to procedure-name-1, procedure-name-2, etc., 
depending on the value of the identif ier-1 being 1, 2, ..., 
n. If the value of the identifier-1 is anything other than 
the positive or unsigned integers 1, 2, ..., n, then no 
transfer occurs and control passes to the next statement in 
the normal sequence for execution. 

Identifier -1 is the name of a numeric integer elementary 
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The IF Statement 



The IF statement causes a specified condition to be 
evaluated. The subsequent action of the object program 
depends on whether the value of the condition is true or 

IdlSc . 



FORMAT 

IF condition; {statement-1 } {; ELSE statement-2 } 
{NEXT SENTENCE } { ;ELSE NEXT SENTENCE } 



Statement-1 and statement-2 represent either an imperative 
statement or a conditional statement, and either may be 
followed by a conditional statement. 

When an IF statement is executed, the following transfers of 
control occur: 

If the condition is true, statement-1 is executed if 
specified. If statement-1 contains a procedure 
branching or conditional statement, control is 
explicitly transferred in accordance with the rules of 
that statement. If statement-1 does not contain a 
procedure branching or conditional statement, the ELSE 
phrase, if specified, is ignored and control passes to 
the next executable sentence. 

If the condition is true and the NEXT SENTENCE phrase 
is specified instead of statement-1, the ELSE phrase, 
if specified, is ignored and control passes to the next 
executable sentence. 

If the condition is false, statement-1 or its surrogate 
NEXT SENTENCE is ignored, and statement-2, if 
specified, is executed. If statement-2 contains a 
procedure branching or conditional statement, control 
is explicitly transferred in accordance with the rules 
of that statement. If statement-2 does not contain a 
procedure branching or conditional statement, control 
passes to the next executable sentence. If the ELSE 
statement-2 phrase is not specified, statement-1 is 
ignored and control passes to the next executable 

Son +■ curt ce* 
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If the condition is false, and the ELSE NEXT SENTENCE 
phrase is specified, statement-1 is ignored, if 
specified, and control passes to the next executable 
sentence. 

Statement-1 and/or statement-2 may contain an IF statement. 
In this case the IF statement is said to be nested. 

IF statements within IF statements may be considered as 
paired IF and ELSE combinations, proceeding from left to 
right. Thus, any ELSE encountered is considered to apply to 
the immediately preceding IF that has not been already 
paired with an ELSE. 

The ELSE NEXT SENTENCE phrase may be omitted if it 
immediately precedes the terminal period of the sentence. 



IF Examples 



IF CHAR-STR IS ALPHABETIC, 

MOVE CHAR-STR TO ALPHA-STR; 
ELSE IF CHR-STR IS NUMERIC 

MOVE CHAR-STR TO NUM; 
DISPLAY NUM; 
ELSE NEXT SENTENCE. 

IF NUM = OLD-NUM GO TO RE-SET. 

IF ALPHA-STR NOT = "TEST" 
ADD 1 TO ERROR-CNT. 

IF NUM < LIMIT, ADD 1 TO NUM. 

IF NUM IS LESS THAN LIMIT 
ADD 1 TO NUM. 

IF PRINT-SWITCH PERFORM PRINT-ROUTINE 
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The INSPECT Statement 



The INSPECT statement provides the ability to tally (Format 
1), replace (Format 2), or tally and replace (Format 3) 
occurrences of single characters or groups of characters in 
a data item. 



FORMAT 1 



INSPECT identifier-1 

TALLYING identifier-2 FOR {{ALL } {identifier-3}} 

Uiteral-1 } 
{{ LEADING } } 

{ CHARACTERS } 

[{ BEFORE } INITIAL Udentifier-4]}] 
Uiteral-2 } 
{AFTER} 



FORMAT 2 








INSPECT identifier-1 








REPLACING {{ALL 


} Udentifier-5}} BY {identifier-6} 




Uiteral-3 


} 


Uiteral-4 } 


{{LEADING} 




} 




{{FIRST } 




} 




{ CHARACTERS 


} 




[{BEFORE} INITIAL 


Udentifier-7}] 
Uiteral-5 } 






{AFTER} 
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FORMAT 3 

INSPECT identifier-1 

TALLYING identif ier-2 FOR {{ ALL } { identif ier-3}} 

{ literal-1 } 
{{ LEADING } } 

{ " CHARACTERS } 

INITIAL {identi: 
{litera 
{AFTER} 



[{ BEFORE } INITIAL { identif ier-4]}] 
{literal-2 } 



REPLACING {{ ALL } { identif ier-5}} BY { identif ier-6} 

{literal-3 } {literal-4 } 

{{ LEADING } } 

{{ FIRST } } 

{ CHARACTERS } 

[{ BEFORE } INITIAL { identif ier-7}] 
{ literal-5 } 
{AFTER} 



Identifier-1 must reference either a group item or any 
category of elementary item, described (either implicitly or 
explicitly as usage is DISPLAY. 

Identif ier-3 ... identif ier-n must reference either an 
elementary alphabetic, alphanumeric or numeric item 
described (either implicitly or explicitly) as usage is 
DISPLAY and a size of one character. 

Each literal may be either a figurative constant (which is 
treated as one-character data item) or a nonnumeric literal 
one character in length. 

The general rules that apply to the INSPECT statement are: 

1. Inspection (which includes the comparison cycle, the 
establishment of boundaries for the BEFORE or AFTER 
phrase, and the mechanism for tallying and/or 
replacing) begins at the leftmost character position of 
the data item referenced by identifier-1, regardless of 
its class, and proceeds from left to right to the 
rightmost character position as described in general 
rules 4 through 6. 
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2. For use in the INSPECT statement, the contents of the 
data item referenced by identif ier-1, identif ier-3 , 
identif ier-4, identif ier-5 , identifier-6 or 

identif ier-7 will be treated as follows: 

a. If any of identif ier-1, identif ier-3, identifier-4 
identif ier-5, identifier-6, or identifier-7 are 
described as alphanumeric, the INSPECT statement 
treats the contents of each such identifier as a 
character -string. 

b. If any of identif ier-1, identif ier-3, 
identifier-4, identif ier-5 , identifier-6 or 
identifier-7 are described as alphanumeric edited, 
numeric edited or unsigned numeric, the data item 
is inspected as though it had been redefined as 
alphanumeric (see general rule 2a) and the INSPECT 
statement had been written to reference the 
redefined data item. 

c. If any of identif ier-1, identif ier-3, 
identifier-4, identif ier-5 , identifier-6, or 
identifier-7 are described as signed numeric, the 
data item is inspected as though it had been moved 
to an unsigned numeric data item of the same 
length and then the rules in general rule 2b had 
been applied. (See the MOVE statement.) 

3. In general rules 4 through 10, all references to 
literal-1, literal-2, literal-3, literal-4, and 
literal-5 apply equally to the contents of the data 
item referenced by identif ier-3, identifier-4, 
identif ier-5, identifier-6, and identifier-7, 
respectively. 

4. During inspection of the contents of the data item 
referenced by identif ier-1, each properly matched 
occurrence of literal-1 is tallied (Formats 1 and 3) 
and/or each properly matched occurrence of literal-3 is 
replaced by literal-4 (Formats 2 and 3). 

5. The comparison operation to determine the occurrences 
of literal-1 to be tallied and/or occurrences of 
literal-3 to be replaced, occurs as follows: 
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a. The character specified by literal-1, literal-3 is 
compared to successive characters, starting with 
the leftmost character position in the data item 
referenced by identif ier-1. Literal-1, literal-3 
and that portion of the contents of the data item 
referenced by identif ier-1 match if, and only if, 
they are equal. 

b. If no match occurs in the comparison of literal-1, 
literal-3, the comparison is repeated starting 
with the next character position of identif ier-1 . 

c. Whenever a match occurs, tallying and/or replacing 
takes place as described in general rules 8 
through 10. The character position in the data 
item referenced by identifier-1 immediately to the 
right of the character position that caused the 
match is now considered to be the leftmost 
character position of the data item referenced by 
identifier-1, and the comparison cycle starts 
again with literal-1, literal-3. 

d. The comparison operation continues until the 
rightmost character position of the data item 
referenced by identifier-1 has participated in a 
match or has been considered as the leftmost 
character position. When this occurs, inspection 
is terminated. 

e. If the CHARACTERS phrase is specified, an implied 
one-character operand participates in the cycle 
described in paragraphs 5a through 5d above, 
except that no comparison to the contents of the 
data item referenced by identifier-1 takes place. 
This implied character is considered always to 
match the leftmost character of the contents of 
the data item referenced by identifier-1 
participating in the current comparison cycle. 

6. The comparison operation defined in general rule 5 is 
affected by the BEFORE and AFTER phrases as follows: 

a. If the BEFORE and AFTER phrase is not specified, 

literal-1, literal-3 or the implied operand of the 
CHARACTERS phrase participates in the comparison 
operation as described in general rule 5. 
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b. If the BEFORE phrase is specified, the associated 
literal-1, literal-3 or the implied operand of the 
CHARACTERS phrase participates only in those 
comparison cycles which involve that portion of 
the contents of the data item referenced by 
identif ier-1 from its leftmost character position 
up to, but not including the first occurrence of 
literal-2, literal-5 within the contents of the 
data item referenced by identif ier-1. The 
position of this first occurrence is determined 
before the first cycle of the comparison operation 
described in general rule 5 is begun. If, on any 
comparison cycle, literal-1, literal-3 or the 
implied operand of the CHARACTERS phrase is not 
eligible to participate, it is considered not to 
match the contents of the data item referenced by 
identif ier-1. If there is no occurrence of 
literal-2, literal-5 within the contents of the 
data item referenced by identif ier-1, its 
associated literal-1, literal-3, or the implied 
operand of the CHARACTERS phrase participates in 
the comparison operation as though the BEFORE 
phrase had not been specified. 

c. If the AFTER phrase is specified, the associated 
literal-1, literal-3 or the implied operand of the 
CHARACTERS phrase may participate only in those 
comparison cycles which involve that portion of 
the contents of the data item referenced by 
identifier-1 from the character position 
immediately to the right of the rightmost 
character position of the first occurrence of 
literal-2, literal-5, within the contents of the 
data item referenced by identifier-1 and the 
rightmost character position of the data item 
referenced by identifier-1. The position of this 
first occurrence is determined before the first 
cycle of the comparison operation described in 
general rule 5 is begun. If, on any comparison 
cycle, literal-1, literal-3, or the implied 
operand of the CHARACTERS phrase is not eligible 
to participate, it is considered not to match the 
contents of the data item referenced by 

idntif ier-1. If there is no occurrence of 
literal-2, literal-5 within the contents of the 
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data item referenced by identif ier-1, its 
associated literal-1, literal-3, or the implied 
operand of the CHARACTERS phrase is never eligible 
to participate in the comparison operation. 



Format 1 



7. The contents of the data item referenced by 
identifier-2 is not initialized by the execution of the 
INSPECT statement. 

8. The rules for tallying are as follows: 

a. If the ALL phrase is specified, the contents of 
the data item referenced by identifier-2 is 
incremented by one (1) for each occurrence of 
literal-1 matched within the contents of the data 
item referenced by identif ier-1. 

b. If the LEADING phrase is specified, the contents 
of the data item referenced by identifier-2 is 
incremented by one (1) for each contiguous 
occurrence of literal-1 matched within the 
contents of the data item referenced by 
identif ier-1, provided that the leftmost such 
occurrence is at the point where comparison began 
in the first comparison cycle in which literal-1 
was eligible to participate. 

c. If the CHARACTERS phrase is specified, the 
contents of the data item referenced by 
identifier-2 is incremented by one (1) for each 
character matched, in the sense of general rule 
5e, within the contents of the data item 
referenced by identif ier-1. 

Format 2 

9. The rules for replacement are as follows: 

a. When the CHARACTERS phrase is specified, each 

character matched, in the sense of general rule 
5e, in the contents of the data item referenced by 
identifier-1 is replaced by literal-4. 
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b. When ALL is specified, each occurrence of 
literal-3 matched in the contents of the data item 
referenced by identifier-1 is replaced by 
literal-4. 

c. When LEADING is specified, each contiguous 
occurrence of literal-3 matched in the contents of 
the data item referenced by identifier-1 is 
replaced by literal-4, provided that the leftmost 
occurrence is at the point where comparison began 
in the first comparison cycle in which literal-3 
was eligible to participate. 

d. When FIRST is specified, the leftmost occurrence of 
literal-3 matched within the contents of the data item 
referenced by identifier-1 is replaced by literal-4. 

Format 3 

10. A Format 3 INSPECT statement is interpreted an executed 
as though two successive INSPECT statements specifying 
the same identifier-1 had been written with one 
statement being a FORMAT 1 statement with TALLYING 
phrases identical to those specified in the Format 3 
statement, and the other statement being a Format 2 
statement with REPLACING phrases identical to those 
specified in the Format 3 statement. The general rules 
given for matching and counting apply to the Format 1 
statement and the general rules given for matching and 
replacing apply to the Format 2 statement. 



Radio /hack 



RM/COBOL Language TRS-SO ® INSPECT 

INSPECT Examples: 

INSPECT word TALLYING count FOR LEADING 'L* BEFORE INITIAL "A", 

Where word=LARGE, count=l. 
Where word=ANALYST, count=j3. 

INSPECT word TALLYING count FOR LEADING "A" BEFORE INITIAL "L" . 

Where word=LARGE, count=0. 
Where word=ANALYST, count-1. 

INSPECT word TALLYING count FOR ALL "L", REPLACING LEADING "A" BY 
"E" AFTER INITIAL "L" . 

Where word=CALLAR, count=2, word=CALLER. 
Where word=SALAMI, count=l, word=SALEMI. 
Where word=LATTER, count=l, word=LETTER. 

INSPECT word REPLACING ALL "A" BY "G" BEFORE INITIAL "X". 

Where word=ARXAX, word=GRXAX. 
Where word=HANDAX, word=HGNDGX. 



II T" 



INSPECT word TALLYING count FOR CHARACTERS AFTER INITIAL "J 
REPLACING ALL "A" BY "B". 

Where word=ADJECTIVE f count=6, word=BDJECTIVE. 
Where word=JACK, count=3, word=JBCK. 
Where word=JUJMAB, count=5, word=JUJMBB. 

INSPECT word REPLACING ALL "W" BY "Q" AFTER 
INITIAL "R" . 

Where word=RXXBQWY, word=RXXBQQY. 
Where word=YZACDWBR, word=YZACDWBR. 
Where word=RAWRXEB, word=RAQRXEB . 

INSPECT word REPLACING CHARACTERS BY "B" BEFORE INITIAL "A' 

word before: 12 XZABCD 
word after: BBBBBABCD 
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The MOVE Statement 



The MOVE statement transfers data, in accordance with the 
rules of editing, to one or more data areas. 



FORMAT 1 

MOVE {identifier-1} TO identifier-2 [, identif ier-3]... 
1 .Li ueraJL / 



FORMAT 2 

MOVE { CORRESPONDING } identifier-1 TO identifier-2 
{CCRR } 



Identifier-1 and literal-1 represent the sending area; 
identifier-2, identif ier-3, ..., represent the receiving 
area(s) . 



An index data item cannot appear as an operand of a MOVE 
statement . 

The data designated by literal-1 or identifier-1 is moved 
first to identifier-2, then to identif ier-3, ... . The 
rules referring to identifier-2 also apply to the other 
receiving areas. Any subscripting or indexing associated 
with identifier-2, ..., is evaluated immediately before the 
data is moved to the respective data item. 

Any subscripting or indexing associated with identifier-1 is 

evaluated only once, immediately before data is moved to the 

first of the receiving operands. The result of the 
statement 

MOVE a (b) TO b, c (b) 

is equivalent to: 

MOVE a (b) TO temp 
MOVE temp TO b 
MOVE temp TO c (b) . 
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Any MOVE in which the sending and receiving items are both 
elementary items is an elementary move. Every elementary item 
belongs to one of the following categories: numeric, alphabetic, 

categories are described in the PICTURE clause. Numeric literals 
belong to the category numeric, and nonnumeric literals belong tc 
the category alphanumeric. The figurative constant ZERO belongs 
to the category numeric. The figurative constant SPACE belongs 
to the category alphabetic. All other figurative constants 
belong to the category alphanumeric. 

The following rules apply to an elementary move between 
these categories: 

1. The figurative constant SPACE, a numeric edited, 
alphanumeric edited, or alphabetic data item must not 
be moved to a numeric or numeric edited data item. 

2. A numeric literal, the figurative constant ZERO, a 
numeric data item or a numeric edited data item must 
not be moved to an alphabetic data item. 

3. A non integer numeric literal or a non integer numeric 
data item must not be moved to an alphanumeric or 
alphanumeric edited data item. 

4. All other elementary moves are legal and are performed 
according to the rules given below. 

Any necessary conversion of data from one form of internal 
representation to another takes place during legal 
elementary moves, along with any editing specified for the 
receiving data item: 

1. When an alphanumeric edited or alphanumeric item is a 
receiving item, alignment and any necessary 
space-filling takes place as defined under Standard 
Alignment Rules. If the size of the sending item is 
greater than the size of the receiving item, the 
excess characters are truncated on the right after the 
receiving item is filled. If the sending item is 
described as being signed numeric, the operational 
sign will not be moved; if the operational sign 
occupies a separate character position (see the SIGN 
clause), that character will not be moved and the size 
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of the sending item will be considered to one less 
than its actual size (in terms of standard data format 
characters ) . 

2. When a numeric or numeric edited item is the receiving 
item, alignment by decimal point and any necessary 
zero-filling takes place as defined under the Standard 
Alignment Rules except where zeroes are replaced 
because of editing requirements. 

When a signed item is the receiving item, the sign of 
the sending item is placed in the receiving item. 
(See the SIGN clause). Conversion of the 
representation of the sign takes place as necessary. 
If the sending item is unsigned, a positive sign is 
generated for the receiving item. 

When an unsigned numeric item is the receiving item, 
the absolute value of the sending item is moved and no 
operational sign is generate for the receiving item. 

When a data item described as alphanumeric is the 
sending item, data is moved as if the sending item 
were described as an unsigned numeric integer. 

3. When a receiving field is described as alphabetic, 
justification and any necessary space-filling takes 
place as defined under the Standard Alignment Rules. 
If the size of the sending item is greater than the 
size of the receiving item, the excess characters are 
truncated on the right after the receiving item is 
filled. 

Any move that is not an elementary move is treated exactly 
as if it were an alphanumeric to alphanumeric elementary 
move, except that there is no conversion of data from one 
form of internal representation to another. In such a move, 
the receiving area will be filled without consideration for 
the individual elementary or group items contained within 
either the sending or receiving area, except as noted in the 
OCCURS clause. 

When a sending and receiving item share a part of their 
storage areas, the result of the execution of such a 
statement is undefined. 
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The CORRESPONDING Phrase 

When the CORRESPONDING phrase is specified, data items in 
identifier-1 are moved to corresponding data items in 
identifier-2 according to the following rules: 

A data item in identifier-1 and a data item in 
identifier-2 are not designated by the key word FILLER 
and have the same qualifiers up to, but not including, 
identifier-1 and identifier-2. 

At least on of the data items is an elementary data 
item. The description of identifier-1 and identifier-2 
must not contain level-number 66, 77, or 88 or the 
USAGE IS INDEX clause. 

A data item that is subordinate to identifier-1 or 
identifier-2 contain a REDEFINES, RENAMES, OCCURS or 
USAGE IS INDEX clause is ignored, as well as those data 
items subordinate to the data item that contains the 
REDEFINES, OCCURS, or USAGE IS INDEX clause. However, 
identifier-1 and identifier-2 may have REDEFINES or 
OCCURS clauses or be subordinate to data items with 
REDEFINES or OCCURS clauses. 



Data in the following chart summarizes the legality of the 
various types of MOVE statements. 
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CATEGORY OF RECEIVING DATA ITEM 


CATEGORY OF 

SENDING 

DATA ITEM 


ALPHABETIC 


ALPHANUMERIC 

EDITED 
ALPHANUMERIC 


NUMERIC INTEGER 
NUMERIC NON-INTEGER 
NUMERIC EDITED 


ALPHABETIC 


YES 


YES 


NO 


AT .PHANT TMFIR TC 


YES 


YES 


YES 


ALPHANUMERIC EDITED 


YES 


YES 


NO 


NUMERIC 


INTEGER 
NON-INTEGER 


NO 
NO 
NO 


YES 


YES 


NO 
YES 


YES 


NUMERIC 


EDITED 


NO 



MOVE Examples 

MOVE INCOME TO TOTAL-INCOME. 

MOVE 1 TO PAGE-COUNT, LINE-NUM. 

MOVE "MARMACK INDUSTRIES" TO TITLE-HEADER, 

MOVE PERSON TO FILE-RECORD TO 

PERSON OF ALABAMA (I -A OF ALABAMA), 
PERSON OF CROSS-CENSUS. 

MOVE NUM TO NUM-ED. 

MOVE TABLE-ELT (N, 1, M) TO NEXT-ENTRY 

PREVIOUS -ENTRY 
MOVE -36.7 TO DEFICIT. 

MOVE QUOTES TO SECTION-DIVIDER. 

MOVE ZERO TO COUN-TER. 

MOVE ZEROES TO COUN-TER. 
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The MULTIPLY Statement 



The MULTIPLY statement causes numeric data items to be 
multiplied and stores the result. 



FORMAT 1 

MULTIPLY {identifier-1} 
{literal-1 } 

BY identifier-2 [ ROUNDED ] 

[,ON SIZE ERROR imperative-statement] 

FORMAT 2 

MULTIPLY {identifier-1} BY {identifier-2} 
{literal-1 } {literal-2 } 

GIVING identifier-3 [ ROUNDED ] 

[;ON SIZE ERROR imperative-statement] 



In Format 1, the value of identifier-1 or literal-1 is 
multiplied by the value of identifier-2. The value of the 
multiplier (identifier-2) is replaced by this product. 

In Format 2, the value of identifier-1 or literal-1 is 
multiplied by identifier-2 or literal-2 and the result is 
stored in identifier-3. 

Each identifier must refer to a numeric elementary item, 
except that in Format 2 the identifier following the word 
GIVING must refer to either an elementary numeric item or an 
elementary numeric edited item. 

Each literal must be a numeric literal. 



The ROUNDED Phrase 

The MULTIPLY statement may optionally include the ROUNDED 
phrase. 
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If, after decimal point alignment, the number of places in 
the fraction of the result of an arithmetic operation is 
greater than the number of places provided for the fraction 
of the resultant-identifier, truncation is relative to the 
size provided for the resultant-identifier. When rounding 
is requested, the absolute value of the resultant-identifier 
is increased by one (1) whenever the most significant digit 
of the excess is greater than or equal to five (5). 

When the low-order integer positions in a 

resultant-identifier are represented by the character ' P' in 
the picture for that resultant-identifier, rounding or 
truncation occurs relative to the rightmost integer position 
for which storage is allocated. 



The SIZE ERROR Phrase 

If, after appropriate decimal point alignment, the absolute 
value of the result exceeds the largest value that can be 
contained in the associated resultant-identifier, a size 
error condition exists. If the ROUNDED phrase is specified, 
rounding takes place before checking for size error. 

If the resultant-identifier has COMPUTATIONAL- 3 usage, size 
error is detected only for data items declared with an odd 
length picture clause. Therefore all COMP-3 data items 
should be declared with an odd number of character 
positions . 

If the SIZE ERROR phrase is not specified and a size error 
condition exists, the value of the resultant-identifier is 
undefined. 

If the SIZE ERROR phrase is specified and a size error 
condition exists, the value of the resultant-identifier is 
not altered and the imperative statement is the SIZE ERROR 
phrase is executed. 

MULTIPLY Examples 

MULTIPLY 10 BY INCOME. 

MULTIPLY PRINCIPAL BY INTEREST-RATE 
GIVING INTEREST ROUNDED. 

MULTIPLY INFLATION-RATE BY EXPENSES 

ON SIZE ERROR MOVE TO ECONOMY -RATING. 
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The OPEN Statement (Sequential I-O) 



The OPEN statement initiates the processing of sequential 
files . 

FORMAT 



OPEN {{ INPUT {file-name-1 [WITH LOCK ] [WITH NO REWIND ] }...}... 
{ OUTPUT {file-name-2 [WITH NO REWIND ] }...}... 

{1-0 {file-name-2 [WITH LOCK ] ... }... }... 

{EXTEND {file-name-4 }... }...}... 



The successful execution of an OPEN statement determines the 
availability of the file and results in the file being in an 
open mode . 

The successful execution of an OPEN statement makes the 
associated record area available to the program. 

The files referenced in the OPEN statement need not all have 
the same organization or access. 

Prior to the successful execution of an OPEN statement for a 
given file, no statement can be executed that references 
that file, either explicitly or implicitly. 

An OPEN statement must be successfully executed prior to the 
execution of any of the permissible input-output statements. 
In the Permissible Statements Table below, 'X' at an 
intersection indicates that the specified statement, used in 
the sequential access mode, may be used with the sequential 
file organization and open mode given at the top of the 
column . 
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Statement 


Input 


Open Mode 
Output Input-Output 


Extend 


READ 
WRITE 


X 


X 


X 


X 


REWRITE 






X 





Permissible Statements Table 

A file may be opened with the INPUT, OUTPUT, EXTEND, and 1-0 
phrases in the same program. Following the initial 
execution of an OPEN statement for a file, each subsequent 
OPEN statement execution for that same file must be preceded 
by the execution of a CLOSE statement, without the LOCK 
phrase, for that file. 

Execution of the OPEN statement does not obtain or release 
the first data record. 

The file description entry for file-name-1, file-name-3 or 
file-name-4 must be equivalent to that used when this file 
was created. 

The execution of an OPEN statement causes the value of the 
specified FILE STATUS data item, if any, associated with 
file-name-1 ... to be updated. 



The INPUT Phrase 

For files being opened with the INPUT phrase, the OPEN 
statement sets the current record pointer to the first 
record currently existing within the file. If no records 
exist in the file, the current record pointer is set such 
that the next executed READ statement for the file will 
result in an AT END condition. 
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The OUTPUT Phrase 

Upon successful execution of an OPEN statement with the 
OUTPUT phrase specified, a file is created. At that time 
the associated file contains no data records. 



The EXTEND Phrase 

When the EXTEND phrase is specified, the OPEN statement 
positions the file immediately following the last logical 
record of that file, Subsequent WRITE statements referencing 
the file will add records to the file as though the file has 
been opened with the OUTPUT phrase. 

The EXTEND phrase and NO REWIND phrase can be used only for 
sequential files. The EXTEND phrase must not be specified 
for a file whose device-type is INPUT. 

When the EXTEND phrase is specified and the LABEL RECORDS 
clause indicates label records are present, the execution of 
the OPEN statement includes the following: 

The beginning file labels are processed only in the 
case of a single reel/unit file. 

Processing then proceeds as though the file has been 
opened with the OUTPUT phrase. 

The 1-0 Phrase 

The 1-0 phrase permits the opening of a mass storage file 
for both input and output operations. Since this phrase 
implies the existence of the file, it cannot be used if the 
mass storage file is being initially created. 
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The 1-0 phrase can be used only for mass storage files 
(files assigned to the RAMDOM device-type). 

When the 1-0 phrase is specified and the LABEL RECORDS 
clause indicates that label records are present, the 
execution of the OPEN includes the following: 

The labels are checked. 

New labels are written. 

The OPEN statement sets the current record pointer to the 
first record currently existing in the file. If no records 
exist in the file, the current record pointer is set such 
that the next executed READ statement for that file will 
result in an AT END condition. 



The NO REWIND Phrase 

The NO REWIND phrases can only be used with sequential 
single reel/unit files. Both phrases will be ignored if 
they do not apply to the storage media on which the file 
resxo.es . 

If the storage medium for the file permits rewinding, the 
following rule applies: 

When neither the EXTEND nor the NO REWIND phrase is 
specified, execution of the OPEN statement causes the 
file to be positioned at its beginning. 

When the NO REWIND phrase is specified, execution of 
the OPEN statement does not cause the file to be 
repositioned; the file must be already positioned at 
its beginning prior to the execution of the OPEN 
statement « 



The LOCK Phrase 

The LOCK phrase permits the opening of a mass storage file 
for exclusive access of the file. This is the default mode 
for files OPEN for OUTPUT. 
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The OPEN Statement (Relative and Indexed I-O) 



The OPEN statement initiates the processing of mass storage 

FORMAT 

OPEN {{ INPUT {file-name-1 [WITH LOCK ] }...}... 

{ OUTPUT {file-name-2 [WITH LOCK ] }...}... 

{ 1-0 {file-name-3 [WITH LOCK ] }...}...}... 

The successful execution of an OPEN statement determines the 
availability of the file and results in the file being in an 
open mode. 

The successful execution of the OPEN statement makes the 
associated record area available to the program. 

The files referenced in the OPEN statement need not all have 
the same organization or access. 

Prior to the successful execution of an OPEN statement for a 
given file, no statement can be executed that references 
that file, either explicitly or implicitly. 

A file may be opened with the INPUT, OUTPUT, and 1-0 phrases 
in the same program. Following the initial execution of an 
OPEN statement for a file, each subsequent OPEN statement 
execution for that same file must be preceded by the 
execution of a CLOSE statement, without the LOCK phrase, for 
that file. 

Execution of the OPEN statement does not obtain or release 
the first data record. 

If label records are specified for the file, the beginning 
labels are processed as follows: 

When the INPUT phrase is specified, the execution of 
the OPEN statement causes the labels to be checked in 
accordance with the System conventions for input label 
checking. 
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When the OUTPUT phrase is specified, the execution of 
the OPEN statement causes the labels to be written in 
accordance with the System conventions for output label 
writing. 

The behavior of the OPEN statement when label records 
are specified but not present, or when label records 
are not specified but are present, is undefined. 



The file description entry for file-name-1 or file-name-3 
must be equivalent to that used when this file was created. 

The execution of the OPEN statement causes the value of the 
specified FILE status data item, if any, associated with 
file-name-1 ... to be updated. 



An OPEN statement must be successfully executed prior to the 
execution of any of the permissible input-output statements. 
In the Permissible Statements Table below, 'X 1 at an 
intersection indicates that the specified statement, used in 
the access mode given for the row, may be used with the open 
mode given at the top of the column. 
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File Access 
Mode 

Sequential 


Statement 

READ 

WRITE 


Input 
X 


Opei 
Output 

X 


i Mode 

Input-Output 
X 






REWRITE 






X 




START 
DELETE 


X 




X 
X 


Random 


READ 


X 




A 




WRITE 




X 


X 




REWRITE 






X 




START 










DELETE 






X 


Dynamic 


READ 


X 




X 




WRITE 
REWRITE 




X 


X 
X 




START 
DELETE 


X 




X 
X 





Permissible Statements Table 
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The INPUT Phrase 

For files being opened with the INPUT phrase, the OPEN 
statement sets the current record pointer to the first 
record currently existing within the file. If no records 
exist in the file, the current record pointer is set such 
that the next execute Format 1 READ statement for the file 
will result in an AT END condition. 

The OUTPUT Phrase 

Upon successful execution of an OPEN statement with the 
OUTPUT phrase specified, a file is created. At that time 
the associated file contains no data records. 



The 1-0 Phrase 

For files being opened with the 1-0 phrase, the OPEN 
statement sets the current record pointer to the first 
record currently existing within the file. If no records 
exist in the file, the current record pointer is set such 
that the next executed Format 1 READ statement for the file 
will result in an AT END condition. 



The LOCK Phrase 

The LOCK phrase permits the opening of a mass storage file 
for exclusive access of the file. This is the default mode 
for files OPEN for OUTPUT. 
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The PERFORM Statement 



The PERFORM Statement is used to transfer control explicitly 
to one or more procedures and to return control implicitly 
whenever execution of the specified procedure is complete. 



FORMAT 1 

PERFORM procedure-name-1 [{THROUGH} procedure-name- 2] 

{THRU } 



FORMAT 2 

PERFORM procedure-name-l [{ THROUGH } procedure-name-2] 

{ THRU } 

{identifier-1} TIMES 
{integer } 



FORMAT 3 

PERFORM procedure-name-1 [{ THROUGH } procedure-name-2 3 

{ THRU } 

UNTIL ccnditioii-1 
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FORMAT 4 

PERFCeM prccedure-name-1 [{ THROUGH } procedure-name-23 

{ THRU } 

VARYING Udentifier-2} FROM {identifier-3} 



{index-name-1} {index-name-2} 

{literal-1 } 

BY {identifier-4} UNTIL condition-l 
{literal-2 } 

[ AFTER Udentifier-5} FRCM {identifier~6} 
{ index-name-3 } { index-name-4 } 

(literal-3 } 

BY {identifier-7} UNTIL condition-2 
Uiteral-4 } 

[ AFTER {identifier-8} FROM {identifier-9} 
{ index-name-5 } { index-name-6 > 

{literal-5 } 

BY Udentifier-10} UNTIL condition-3]] 
{literal-6 } 



Format 1 is the basic PERFORM statement. A procedure 
referenced by this type of PERFORM statement is executed 
once and then control passes to the next executable 
statement following the PERFORM statement. 

Format 2 is the PERFORM. . .TIMES . The procedures are 
performed the number of times specified by integer or by the 
initial value of the data item referenced by identifier-1 
for the execution, If, at the time of execution of a 
PERFORM statement, the value of the data time referenced by 
identifier-1 is equal to zero or is negative, control passes 
to the next executable statement following the PERFORM 
statement. Following the execution of the procedures the 
specified number of times, control is transferred to the 
next executable statement following the PERFORM statement. 

During execution of the PERFORM statement, references to 
identifier-1 cannot alter the number of times the procedures 
are to be executed from that which was indicated by the 
initial value of identifier-1. 
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Format 3 is the PERFORM. . .UNTIL. The specified procedures 
are performed until the condition specified by the UNTIL 
phrase is true. When the condition is true, control is 
transferred to the next executable statement after the 
PERFORM statement. If the condition is true when the 
PERFORM statement is entered, no transfer to 
procedure-name-1 takes place, and control is passed to the 
next executable statement following the PERFORM statement. 

Format 4 is the PERFORM. . .VARYING. This variation of the 
PERFORM statement is used to augment the values referenced 
by one or more identifiers or index-names in an orderly 
fashion during the execution of a PERFORM statement. In the 
following discussion, every reference to identifier as the 
object of the VARYING, AFTER and FROM (current value) 
phrases also refers to index-names. When index-name appears 
in a VARYING and/or AFTER phrase, it is initialized and 
subsequently augmented (as described below) according to the 
rules of the SET statement. When index-name appears in the 
FROM phrase, identifier, when it appears in an associated 
VARYING or AFTER phrase, is initialized according to the 
rules of the SET statement; subsequent augmentation is as 
described below. 

In Format 4, when one identifier is varied, identifier-2 is 
set to the value of literal-1 or the current value of 
identifier-3 at the point of initial execution of the 
PERFORM statement; then, if the condition of the UNTIL 
phrase is false, the sequence of procedures, 

procedure-name-1 through procedure-name-2, is executed once. 
The value of identifier-2 is augmented by the specified 
increment of decrement value (the value of identifier-4 or 
literal-2) and condition-1 is evaluated again. The cycle 
continues until this condition is true; at which point, 
control is transferred to the next executable statement 
following the PERFORM statement. If condition-1 is true at 
the beginning of execution of the PERFORM statement, control 
is transferred to the next executable statement following 
the PERFORM statement. 

Each identifier represents a numeric elementary item 
described in the Data Division. In Format 2, identifier-1 
must be described as a numeric integer. 

Each literal represents a numeric literal. 
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The words THRU and THROUGH are equivalent. 

If an index-name is specified in the VARYING or AFTER 
phrase, then: 

The identifier in the associated FROM and BY phrases 
must be an integer data item. 

The literal in the associated FROM phrase must be a 
positive integer. 

The literal in the associated BY phrase must be a non 
zero integer. 

If an index-name is specified in the FROM phrase, then: 

The identifier in the associated VARYING or AFTER 
phrase must be an integer data item. 

The identifier in the associated BY phrase must be an 
integer data item. 

The literal in the associated BY phrase must be an 
integer. 

Literal in the BY phrase must not be zero. 

Condition-1, condition-2, condition-3 may be any conditional 
expression. 

When procedure-name-1 and procedure-name-2 are both 
specified and either is the name of a procedure in the 
declarative section of the program then both must be 
procedure-names in the same declarative section. 

the data items referenced by identif ier-4, identif ier-7 , and 
identif ier-10 must not have a zero value. 

If an index-name is specified in the VARYING or AFTER 
phrase, and an identifier is specified in the associated 
FROM phrase, then the data item referenced by the identifier 
must have a positive value. 

When the PERFORM statement is executed, control is 
transferred to the first statement of the procedure named 
procedure-name-1. This transfer of control occurs only once 
for each execution of a PERFORM statement. For those cases 
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when a transfer of control to the named procedure does take 
place, an implicit transfer of control to the next 
executable statement following the PERFORM statement is 
established as follows: 

If procedure-name-1 is a paragraph-name and 
procedure-name-2 is not specified, then the return is 
after the last statement of procedure-name-1. 

If procedure-name-1 is a section-name and 
procedure-name-2 is not specified, then the return is 
after the last statement of the last paragraph in 
procedure-name-1 . 

If procedure-name-2 is specified and it is a 
paragraph-name, then the return is after the last 
statement of the last paragraph. 

If procedure-name-2 is specified and it is a 
section-name, then the return is after the last 
statement of the paragraph in the section. 

There is no necessary relationship between procedure-name-1 
and procedure-name-2 except that a consecutive sequence of 
operations is to be executed beginning at the procedure 
named procedure-name-1 and ending with the execution of the 
procedure named procedure-name-2. In particular, GO TO and 
PERFORM statements may occur between procedure-name-1 and 
the end of procedure-name-2. If there are two or more 
logical paths to the return point, then procedure-name-2 may 
be the name of a paragraph consisting of the EXIT statement, 
to which all of these paths must lead. 

If control passes to these procedures by means other than a 
PERFORM statement, control will pass through the last 
statement of the procedure to the next executable statement 
as if no PERFORM statement mentioned these procedures. 
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ENTRANCE 

I 
V 

Set identif ier-2 equal to 
current FROM value 



V 

/ \ 

•> | Condition-1 

\ / 



V False 

Execute procedure-name-1 
THRU procedure-name-2 



Augment identifier-2 with 
current BY value 



True 



> Exit 



Flowchart for the VARYING Phrase of a PERFORM Statement 
Having One Condition. 
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In Format 4, when two identifiers are varied, identifier-2 
and identifier-5 are set to the current value of 
identifier-3 and identif ier-6, respectively. 

After the identifiers have been set, condition-1 is 
evaluated; if true, control is transferred to the next 
executable statement; if false, condition-2 is evaluated. 
If condition-2 is false, procedure-name-1 through 
procedure-name-2 is executed once, then identifier-5 is 
augmented by identifier-7 or literal-4 and condition-2 is 
evaluated again. This cycle of evaluation and augmentation 
continues until this condition is true. When condition-2 is 
true, identifier-5 is set to the value of literal-3 or the 
current value of identif ier-6, identifier-2 is augmented by 
identif ier-4 and condition-1 is re-evaluated. The PERFORM 
statement is completed if condition-1 is true; if not, the 
cycles continue until condition-1 is true. 

During the execution of the procedures associated with the 
PERFORM statement, any change to the VARYING variable 
(identifier-2 and index-name-1) , the BY variable 
(identif ier-4) , the AFTER variable (identifier-5 and 
index-name-3) , or the FROM variable (identifier-3 and 
index-name-2) will be taken into consideration and will 
affect the operation of the PERFORM statement. 
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Set identifier-2 and identif ier-5 | 
to current FROM values 



V 

/ \ 

•> | Ccndition-1 | 

\ / 

I 

V False 

■> | Condition-2 | 

\ / 

V False 



True 



True 



-> Exit 



Execute procedure-name-1 | 
THRU procedure-name-2 



Augment identifier -5 with 
current BY value 



V 



Set identifier-5 to its 
current FROM value 



V 



Augment identifier-2 with 
current BY value 



Flowchart for the VARYING Phrase of a PERFORM Statement 
Having Two conditions. 



Radio /hack 



- 216 - 



RM/COBOL Language 



TRS-8Q 



PERFORM 



ENTRANCE 

I 
V 

identifier-2, identifier-5, 
identifier-8 
to current FROM values 









V 

/ \ 

| Condition-1 | 

| False 
V 

/ \ 

| Condition-2 | 

\ / 

| False 
V 

/ \ 

! Condition-3 | 

\ / 

| False 
V 



True 
> Exit 



True 
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procedure-name-1 
THRU procedure- 

name-2 



V 

Augment 
identifier-8 with 
current BY value 



Set 
identifier-8 
to its current 
FROM value 



V 

Augment 
identifier-5 with 
current BY value 



V 

DSL 

identifier-5 
to its current 
FROM value 



V 

Augment 
identifier-2 with 
current BY value 



Flowchart for the VARYING Phrase of a PERFORM Statement 
Having Three Conditions. 
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At the termination of the PERFORM statement identifier-5 
contains the current value of identif ier-6. Identifier-2 
has a value that exceeds the last setting by an increment or 
decrement value, unless condition-1 was true when the 
PERFORM statement was entered, in which case identifier-2 
contains the current value of identif ier-3 . 

When two identifiers are varied, identifier-5 goes through a 
complete cycle (FROM, BY, UNTIL) each time identifier-2 is 
varied. 

For three identifiers the mechanism is the same as for two 
identifiers except that identifier-8 goes through a complete 
cycle each time that identifier-5 is augmented by 
identif ier-7 or literal-4, which in turn goes through a 
complete cycle each time identifier-2 is varied. 

After the completion of a Format 4 PERFORM statement, 
identifier-5 and identifier-8 contain the current value of 
identifier-6 and identifier-9 respectively. Identifier-2 
has a value that exceeds its last used setting by one 
increment or decrement value, unless condition-1 is true 
when the PERFORM statement is entered, in which case 
identifier-2 contains the current value of identif ier-3 . 

If a sequence of statements referred to by a PERFORM 
statement includes another PERFORM statement, the sequence 
of procedures associated with the included PERFORM must 
itself either be totally included in, or totally excluded 
from, the logical sequence referred to by the first PERFORM. 
Thus an active PERFORM statement, whose execution point 
begins within the range of another active PERFORM statement, 
must not allow control to pass to the exit of the other 
active PERFORM statement; furthermore, two or more such 
active PERFORM statements may not have a common exit. See 
the valid illustrations below. 
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A PERFORM statement that appears in a section that is not in 
an independent segment can have within its range, in 
addition to any declarative sections whose executions is 
caused within that range, only one of the following: 
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Sections and/or paragraphs wholly contained in one or 
more non-independent segments. 

Sections and/or paragraphs wholly contained in a single 
independent segment. 

A PERFORM statement that appears in an independent segment 
can have within its range, in addition to any declarative 
sections whose execution is caused within that range, only 
one of the following: 

Sections and/or paragraphs wholly contained in one or 
more non-independent segments. 

Sections and/or paragraphs wholly contained in the same 
independent segment as the PERFORM statement. 
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The READ Statement (Sequential I-O) 

from a file. 
FORMAT 

READ file-name RECORD [ INTO identifier] 
[,AT END imperative-statement] 



The associated file must be open in the INPUT or 1-0 mode at 
time this statement is executed. 

The record to be made available by the READ statement is 
determined as follows: 

If the current record pointer was positioned by the 
execution of the OPEN statement, the record pointed to 
by the current record pointer is made available. 

If the current record pointer was positioned by the 
execution of a previous READ statement, the current 
record pointer is updated to point to the next existing 
record in the file and then that record is made 
available. 

The execution of the READ statement causes the value of the 
FILE STATUS data item, if any, associated with file-name to 
be updated. 

When the logical records of a file are described with more 
than one record description the contents of any data items 
which lie beyond the range of the current data record are 
undefined at the completion of the execution of the READ 
statement. 

If, at the time of execution of a READ statement, the 
position of the current record pointer for that file is 
undefined, the execution of that READ statement is 
unsuccessful. 

Following the unsuccessful execution of any READ statement, 
the contents of the associated record area and the position 
of the current record pointer are undefined. 
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The INTO Phrase 

If the INTO phrase is specified, the record being read is 
moved from the record area to the area specified by 
identifier according to the rules specified for the MOVE 
statement. The implied MOVE does not occur if the execution 
of the READ statement was unsuccessful. Any subscripting or 
indexing associated with identifier is evaluated after the 
record has been read and immediately before it is moved to 
the data item. 

When the INTO phrase is used, the record being read is 
available in both the input record area and the data area 
associated with identifier. 

The INTO phrase must not be used when the input file 
contains logical records of various sizes as indicated by 
their record descriptions. The storage area associated with 
identifier and the record area associated with file-name 
must not be the same storage area. 



The AT END Phrase 

If, at the time of the execution of a READ statement, no 
next logical record exists in the file, the AT END condition 
occurs, and the execution of the READ statement is 
considered unsuccessful. 

When the AT END condition is recognized the following 
actions are taken in the specified order. 

A value is placed into the FILE STATUS data item, if 
specified for this file, to indicate an AT END 
condition. 

If the AT END phrase is specified in the statement 
causing the condition, control is transferred to the AT 
END imperative-statement. Any USE procedure specified 
for this file is not executed. 
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If the AT END phrase is not specified, then a USE 
procedure must be specified, either explicitly or 
implicitly, for this file and that procedure is 
executed. 

When the AT END condition has been recognized, a READ 
statement for that file must not be executed without first 
executing a successful CLOSE statement followed by the 
execution of a successful OPEN statement for that file. 

The AT END phrase must be specified if no applicable USE 
procedure is specified for file-name. 
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The READ Statement (Relative and Indexed 1-0) 



The READ Statement makes available a specified record from a 
mass storage file. 



FORMAT 1 

READ file-name [ NEXT ] RECORD [WITH NO LOCK ] [INTO identifier] 
[ ;AT END imperative-statement] 

FORMAT 2 

READ file-name RECORD [WITH NO LOCK ] [INTO identifier] 
[; KEY is data-name] 
[; INVALID KEY imperative-statement] 



Format 1 must be used for all files is sequential access 
mode . 

The NEXT phrase must be specified for files in dynamic 
access mode, when records are to be retrieved sequentially. 

Format 2 is used for files in random access mode or for 
files in dynamic access mode when records are to be 
retrieved randomly. 

The INVALID KEY phrases or the AT END phrase must be 
specified if no applicable USE procedure is specified for 
file-name . 

The associated files must be open in the INPUT or 1-0 mode 
at the time this statement is executed. 

The KEY phrase may be specified only when the organization 
of file-name is index. When the KEY clause is present, 
data-name must be the name of one of the record keys 
associated with file-name. Data-name may be qualified. 

The record to be made available by a Format 1 READ statement 
is determined as follows: 
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The record, pointed to by the current record pointer, 
is made available provided that the current record 
pointer was positioned by the START or OPEN statement 
and the record is still accessible through the path 
indicated by the current record pointer. If the record 
is no longer accessible, which may have been caused by 
the deletion of the record, the current record pointer 
is updated to point to the next existing record in the 
file and that record is then made available. 

If the current record pointer was positioned by the 
execution of a previous READ statement, the current record 
pointer is updated to point to the next existing record in 
the file and then that record is made available. 

The execution of the READ statement causes the value of the 
FILE STATUS data item, if any, associated with file-name to 
be updated . 

When the logical records of a file are described with more 

than one record description, these records automatically 
share the same storage area; this is equivalent to an 

implicit redefinition of the area. The contents of any data 

item which lie beyond the range of the current data record 

are undefined at the completion of the execution of the READ 
statement . 

If, at the time of execution of a Format 1 READ statement, 

the position of current record pointer for that file is 

undefined, the execution of that READ statement is 
unsuccessful. 



The INTO Phrase 

If the INTO phrase is specified, the record being read is 
moved from the record area to the area specified by 
identifier according to the rules specified for the MOVE 
statement. The implied MOVE does not occur if the execution 
of the READ statement was unsuccessful. Any subscripting or 
indexing associated with identifier is evaluated after the 
record has been read and immediately before is is moved to 
the data item. 
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When the INTO phrase is used, the record being read is 
available in both the input record area and the data area 
associated with identifier. 

The INTO phrase must not be used when the input file 
contains logical records of various sizes as indicated by 
their record descriptions. The storage area associated with 
identifier and the record area associated with file-name 
must not be the same storage area. 

Following the unsuccessful execution of any READ statement, 
the contents of the associated record area and the position 
of the current record pointer are undefined. 

For relative files if the RELATIVE KEY phrase is specified, 
the execution of a Format 1 READ statement updates the 
contents of the RELATIVE KEY data item such that it contains 
the relative record number of the record made available. 

For relative files the execution of a Format 2 READ 
statement sets the current record pointer to, and makes 
available, the record whose relative record number is 
contained in the data item named in the RELATIVE KEY phrase 
for the file. If the file does not contain such a record, 
the INVALID KEY condition exists and execution of the READ 
statement is unsuccessful. 

For an indexed file being sequentially accessed, records 
having the same duplicate value in an alternate record key 
which is the key of reference are made available in the same 
order in which they are released by execution of WRITE 
statements, or by execution of REWRITE statements which 
create such duplicate values. 

For an indexed file if the KEY phrase is specified in a 
Format 2 READ statement, data-name is established as the key 
of reference for this retrieval. If the dynamic access mode 
is specified, this key of reference is also used for 
retrievals by any subsequent executions of Format 1 READ 
statements for the file until a different key of reference 
is established for the file. 

If the Key phrase is not specified in a Format 2 READ 
statement, the prime record key is established as the key of 
reference for this retrieval. 
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If the dynamic access mode is specified, this key of 
reference is also used for retrievals by any subsequent 
executions of Format 1 READ statements for the file until a 
different key of reference is established for the file. 

For indexed files the execution of a Format 2 READ statement 
causes the value of the key of reference to be compared with 
the value contained in the corresponding data item of the 
stored records in the file, until the first record having an 
equal value is found. The current record pointer is 
positioned to this record which is then made available. If 
no record can be so identified, the INVALID KEY condition 
exist and execution of the READ statement is unsuccessful. 



The AT END Phrase 

If, at the time of the execution of a Format 1 READ 
statement, no next logical record exists in the file, the AT 
END condition occurs, and the execution of the READ 
statement is considered unsuccessful. 

When the AT END condition is recognized, the following 
actions are taken in the specified order; 

A value is placed into the FILE STATUS data item, if 
specified for this file, to indicate an AT END 
condition. 

If the AT END phrase is specified in the statement 
causing the condition, control is transferred to the AT 
END imperative-statement. Any USE procedure specified 
for this file is not executed. 

If the AT END phrase is not specified, then a USE 
procedure must be specified, either explicitly or 
implicitly, for this file, and that procedure is 
executed. 

When the AT END condition occurs, execution of the 
input-output statement which caused the condition is 
unsuccessful. 



Radio /hack 

- 227 - 



READ (Rel. & Ind. 1-0) Tpc.gn ® RM/COBOL Language 



When the AT END condition has been recognized, a Format 1 
READ statement for that file must not be executed without 
first executing one of the following: 

A successful CLOSE statement followed by the execution 
of a successful OPEN statement for that file. 

A successful START statement for that file. 

A successful Format 2 READ statement for that file. 

For a file for which dynamic access mode is specified, a 
Format 1 READ statement with the NEXT phrase specified 
causes the next logical record to be retrieved from the 
file. 
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The REWRITE Statement (Sequential I-O) 



The REWRITE statement logically replaces a record existing 
in a mass storage file. 



FORMAT 

REWRITE record-name [ FROM identifier] 

Record-name and identifier must not refer to the same 
storage area. 

Record-name is the name of a logical record in the File 
Section of the Data Division and may be qualified. 

The file associated with record-name must be a mass storage 
file and must be open in the 1-0 mode at the time of 
execution of this statement. 

The last input-output statement executed for the associated 
file prior to the execution of the REWRITE statement must 
have been a successfully executed READ statement. 

The number of character positions in the record referenced 
by record-name must be equal to the number of character 
positions in the record being replaced. 

The logical record released by successful execution of the 
REWRITE statement is no longer available in the record area. 

The current record pointer is not affected by the execution 
of a REWRITE statement. 

The execution of the REWRITE statement causes the value of 
the FILE STATUS data item, if any, associated with the file 
to be updated. 



The FROM Phrase 

The execution of a REWRITE statement with the FROM phrase is 
equivalent to the execution of: 

MOVE identifier TO record -name 
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followed by the execution of the same REWRITE statement 
without the FROM phrase. The contents of the record area 
prior to the execution of the implicit MOVE statement have 
no effect on the execution of the REWRITE statement. 
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The REWRITE Statement (Relative and Indexed I-O) 



The REWRITE statement logically replaces a record existing 
in a mass storage file. 



FORMAT 

REWRITE record-name [ FROM identifier] 

[ ; INVALID KEY imperative-statement] 



Record-name and identifier must not refer to the same 
storage area. 

Record-name is the name of a logical record in the File 
Section of the Data Division and may be qualified. 

For relative files the INVALID KEY phrase must not be 
specified for a REWRITE statement which references a file in 
sequential access mode. 

The INVALID KEY phrase must be specified in the REWRITE 
statement for files in the random or dynamic access mode for 
which an appropriate USE procedure is not specified. 

For indexed files the INVALID KEY phrase must be specified 
in the REWRITE statement for files for which an appropriate 
USE procedure is not specified. 

The file associated with record-name must be open in the 1-0 
mode at the time of execution of this statement. 

For files in the sequential access mode, the last 
input-output statement executed for the associated file 
prior to the execution of the REWRITE statement must have 
been a successfully executed READ statement without the WITH 
NO LOCK phrase. 

The number of character positions in the record referenced 
by record-name must be equal to the number of character 
positions in the record being replaced. 

The logical record released by a successful execution of the 
REWRITE statement is no longer available in the record area. 
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The current record pointer is not affected by the execution 
of a REWRITE statement. 

The execution of the REWRITE statement causes the value of 
the FILE STATUS data item, if any, associated with the file 
to be updated. 



The INVALID KEY Phrase 

For a relative file accessed in either random or dynamic 
access mode, the System logically replaces the record 
specified by the contents of the key data item associated 
with the file. If the file does not contain the record 
specified by the key, the INVALID KEY condition exists. 

For indexed files the INVALID KEY condition exists when: 

The access mode is sequential and the value contained 
in the prime record key data item of the record to be 
replaced is not equal to the value of the prime record 
read from the field, or 

The value contained in the prime record key item does 
not equal that of any record stored in the file. 

When the INVALID KEY condition exists the updating operation 
does not take place and the data in the record area is 
unaffected. 



The FROM Phrase 

The execution of a REWRITE statement with the FROM phrase is 
equivalent to the execution of: 

MOVE identifier TO record-name 

followed by the execution of the same REWRITE statement 
without the FROM phrase. The contents of the record area 
prior to the execution of the implicit MOVE statement have 
no effect on the execution of the REWRITE statement. 
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The SET Statement 
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handling operations by setting index-names associated with 
table elements. 



FORMAT 1 



SET {identifier-1} [,identifier-2] ...} TO {identifier-3} 

{index-name-3J 
{index-name-1} [, index-name-2] {integer-1 } 



FORMAT 2 

SET index-name-4 [, index-name-5] ... {UP BY } {identifier-4} 

{ DOWN BY } {integer-2 } 

All references to index-name-1, identifier-1 and 
index-name-4 apply equally to index-name-2, identif ier-2, 
and index-name-5, respectively. 

Identifier-1 and identifier-3 must name either index data 
items, or elementary items described as an integer. 

Identifier-4 must be declared as an elementary numeric 
integer. 

Integer-1 and integer-2 may be signed. Integer-1 must be 
positive. 

Index-names are considered related to a given table and are 
defined by being specified in the INDEXED BY clause. 

If index-name-3 is specified, the value of the index before 
the execution of the SET statement must correspond to an 
occurrence number of an element in the associated table. 

If index-name-4, index-name-5 is specified, the value of the 
index both before and after the execution of the SET 
statement must correspond to an occurrence number of an 
element in the associated table. If index-name-1, 
index-name-2 is specified, the value of the index after the 
execution of the SET statement must correspond to an 
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occurrence number of an element in the associated table. 
The value of the index associated with an index-name after 
the execution of a PERFORM statement may be undefined. 
In Format 1, the following action occurs: 

Index-name-1 is set to a value causing it to refer to 
the table element that corresponds in occurrence number 
to the table element referenced by index-name-3, 
identif ier-3, or integer-1. If identifier-3 is an 
index data item, or if index-name-3 is related to the 
same table as index-name-1, no conversion takes place. 

If identifier-1 is not an index data item, it may be 
set only to an occurrence number that corresponds to 
the value of index-name-3. Neither identifier-3 nor 
integer-1 can be used in this case. 

The process is repeated for index-name-2, identif ier-2, 
etc., if specified. Each time the value of index-name-3 or 
identifier-3 is used as it was at the beginning of the 
execution of the statement. Any subscripting or indexing 
associated with identifier-1, etc., is evaluated immediately 
before the value of the respective data item is changed. 

In Format 2, the contents of index-name-4 are incremented 
(UP BY) or decremented (DOWN BY) by a value that corresponds 
to the number of occurrences represented by the value of 
integer-2 or identif ier-4; thereafter, the process is 
repeated for index-name-5 , etc. Each time the value of 
identifier-4 is used as it was at the beginning of the 
execution of the statement. 

Data in the following chart represents the validity of 
various operand combinations in the SET statement. 





Receiving Item 




Sending Item 


Integer Data 
Item 


Index 
Name 


Index Data 
Item 


Integer Literal 
Integer Data Item 
Index-Name 
Index Data Item 


No 
No 
Valid 
No 


Valid 
Valid 
Valid 
Valid* 


No 

No 
Valid* 
Valid* 



* No conversion takes place 
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The START Statement (Relative and Indexed 1-0) 



The START statement provides a basis for logical positioning 
within a file, for subsequent sequential retrieval of 
records. 



FORMAT 



START file-name [KEY {IS EQUAL TO 


} data-name] 


{IS = 


} 


{IS GREATER THAN 


} 


{IS > 


} 


{IS NOT LESS THAN 


} 


{IS NOT< 


} 



[ ; INVALID KEY imperative-statement] 

Note: The required relational characters '>', '<' and 
i_i are not underlined to avoid confusion with other 
symbols . 

File-name must be the name of a file with sequential or 
dynamic access. 

Data-name may be qualified. 

The INVALID KEY phrase must be specified if no applicable 
USE procedure is specified for file-name. 

If file-name is the name of a relative file then data-name, 
if specified, must be the data item specified in the 
RELATIVE KEY phrase of the associated file control entry. 

If file-name is the name of an indexed file then data-name, 
if specified, may reference the data items specified as the 
record keys associated with file-name or it may reference 
any data item of category alphanumeric whose leftmost 
character position corresponds to the leftmost character 
position of a record key data item. 

File-name must be open in the INPUT or 1-0 mode at the time 
that the START statement is executed. 

If the KEY phrase is not specified the relational operator 
'IS EQUAL TO 1 is implied. 
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The type of comparison specified by the relational operator 
in the KEY phrase occurs between a key associated with a 
record in the file referenced by file-name and a data item. 

If file-name references a relative file, the data item 
used in the comparison is the relative key associated 
with file-name. 

If file-name references an indexed file, the data item 
used in the comparison is either the prime record key 
associated with file-name or, if the KEY phrase is 
specified, the data item referenced in the KEY phrase. 

If the operands of the comparison are of unequal size, 
comparison proceeds as though the longer one were 
truncated on the right such that its length is equal to 
that of the shorter. All other nonnumeric comparison 
rules apply except that the presence of the PROGRAM 
COLLATING SEQUENCE clause will have no effect on the 
comparison. 

The current record pointer is positioned to the first 
logical record currently existing in the file whose key 
satisfies the comparison. 

If the comparison is not satisfied by any record in the 
file, an INVALID KEY condition exists, the execution of 
the START statement is unsuccessful, and the position 
of the current record pointer is undefined. 

the execution of the START statement causes the value of the 
FILE STATUS data item, if any, associated with file-name to 
be updated. 
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The STOP Statement 

The STOP statement causes a permanent or temporary 

suspension of the execution of the object program. 

FORMAT 

STOP { RUN [,identifier-l} ] 

literal-1 

{literal-2 } 

The value of identifier-1 or literal-1 in the RUN phrase 
specifies a numeric value to be returned to the operating 
system upon execution of the STOP RUN statement. If 
identifier-1 or literal 1 is not specified in the RUN 
phrase, a value of is assumed. 



Literal-2 may be numeric or nonnumeric or may be any 
figurative constant. 

If a STOP RUN statement appears in a consecutive sequence of 
imperative statements within a sentence, it must appear as 
the last statement in that sequence. 

If the RUN phrase is used, then a STOP RUN message is logged 
and the execution is terminated with the specified return 
code. 

If STOP literal is specified, the literal is logged in a 
STOP "literal-value" message and the execution is suspended. 



STOP Examples 

STOP RUN. 

STOP RUN 1. 

STOP "END OF PROCEDURE 1 
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The SUBTRACT Statement 

The SUBTRACT statement is used to subtract one, or the sum 
of two or more, numeric data items from a numeric data item 
and store the result. 



FORMAT 1 

SUBTRACT {identifier-1} [, identif ier-2] 

{literal-1 } [,literal-2 ] 

FROM identifier-m [ ROUNDED ] 

[;0N SIZE ERROR imperative-statement] 

FORMAT 2 

SUBTRACT {identifier-1} [, identif ier-2] ... 
1 jl i rera jl — J. / l , iitsidi - z j 

FROM {identifier-m} GIVING identif ier-n [ ROUNDED ] 
{literal-m } 

[;0N SIZE ERROR imperative-statement] 

FORMAT 3 

SUBTRACT { CORRESPONDING } identifier-1 
{ CORR } 

FROM identifier-m [ ROUNDED ] 

[;ON SIZE ERROR imperative-statement] 

In Format 1, all literals or identifiers preceding the word 
FROM are added together and this total is subtracted from 
the current value of identifier-m storing the result 
immediately into identifier-m. 

In Format 2, all literals or identifiers preceding the word 
FROM are added together, the sum is subtracted from 
literal-m or identifier-m and the result of the subtraction 
is stored as the new value of identif ier-n. 
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If Format 3 is used, data items in identifier-1 are 
subtracted from and stored into corresponding data items in 
identif ier-2. 

Each identifier must refer to a numeric elementary item 
except that: 

In Format 2, the identifier following the word GIVING 
must refer to either an elementary numeric item or an 
elementary numeric edited item. 

In Format 3, the identifiers must refer to group items. 

Each literal must be a numeric literal. 

The ROUNDED Phrase 

The SUBTRACT statement may optionally include the ROUNDED 
phrase. 

If, after decimal point alignment, the number of places in 
the fraction of the result of an arithmetic operation is 
greater than the number of places provided for the fraction 
of the resultant-identifier, truncation is relative to the 
size provided for the resultant-identifier. When rounding 
is requested, the absolute value of the resultant-identifier 
is increased by one (1) whenever the most significant digit 
of the excess is greater than or equal to five (5). 

When the low-order integer positions in a 

resultant-identifier are represented by the character 'P' in 
the picture for that resultant-identifier, rounding or 
truncation occurs relative to the rightmost integer position 
for which storage is allocated. 

The SIZE ERROR Phrase 

If, after appropriate decimal point alignment, the absolute 
value of the result exceeds the largest value that can be 
contained in the associated resultant-identifier, a size 
error condition exists. If the ROUNDED phrase is specified, 
rounding takes place before checking for size error. 

If the resultant-identifier has C0MPUTATI0NAL-3 usage, size 
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error is detected only for data items declared with an odd 
length picture clause. Therefore, all COMP-3 data items 
should be declared with an odd number of character 
positions . 

If the SIZE ERROR phrase is not specified and a size error 
condition exists, the value of the resultant-identifier is 
undefined. 

If the SIZE ERROR phrase is specified and a size error 
condition exists, the value of the resultant-identif ier ( s ) 

affected by the size error is not altered. 

If the CORRESPONDING phrase is specified, and any of the 
individual subtractions produce a size error condition, the 
imperative-statement is not executed until all of the 
individual subtractions are completed. 



The CORRESPONDING Phrase 

If the CORRESPONDING phrase is used, selected items within 
identifier-1 are SUBTRACTed from, and the result stored in, 
the corresponding items in identif ier-2. Data items 
referenced by the CORRESPONDING phrase must adhere to the 
following rules: 

A data item in identifier-1 and a data item in 
identifier-2 must not be designated by the key word 
FILLER and must not have the same data-name and the 
same qualifiers up to, but not including, identifier-1 
and identifier-2. 

Both of the data items must be elementary numeric data 
items . 

The description of identifier-1 and identifier-2 must 
not contain level-numbers 66, 77, or 88 or the USAGE IS 
INDEX clause. 

A data item that is subordinate to identifier-1 or 
identifier-2 and contains a REDEFINES, RENAMES, OCCURS 
or USAGE IS INDEX clause is ignored, as well as those 
data items subordinate to the data item that contains 
the REDEFINES, OCCURS, or USAGE IS INDEX clause. 
However, identifier-1 and identifier-2 may have 
REDEFINES or OCCURS clauses or be subordinate to data 
items with REDEFINES or OCCURS clauses. 
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CORR is an abbreviation for CORRESPONDING. 



SUBTRACT EXAMPLES 

SUBTRACT TAXES FROM INCOME. 

SUBTRACT 1 FROM TALLY GIVING TALLY-1. 

SUBTRACT 2.68, INTEREST, PENALTY 
FROM PRINCIPAL ROUNDED 
ON SIZE ERROR GO TO ERROR -HANDLER. 
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The UNLOCK Statement 



The UNLOCK statement makes available to other programs the 
most recently accessed record in a file that was read and 
locked. 



FORMAT 

UNLOCK file-name RECORD. 

Note: The UNLOCK statement is nonstandard r but provides for 
compatibility with existing programs written for 
environments that allow multiple programs to 
concurrently update a data file. For systems that do 
not provide this capability, the UNLOCK statement will 
not affect execution except as described below. 

The file associated with the file-name must be open in the 
1-0 mode. 

If no record in the file is locked, execution of an UNLOCK 
statement causes no action to be taken. If a record in the 
file is locked (unavailable to other programs), the last 
record to be locked is then made available to any other 
program upon execution of the UNLOCK statement. 

The current record pointer is not affected by the execution 
of the UNLOCK statement. The FILE STATUS data item 
associated with the file, if one exists, is updated. 

The UNLOCK statement may not be used to unlock records 
locked by other programs. 

Note: Records that are read and locked are automatically 

unlocked by any subsequent operation on that file from 
the same program. 
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The WRITE Statement (Sequential 1-0 



The WRITE statement releases a logical record for an output 
file. It can also be used for vertical positioning of lines 
within a logical page. 



FORMAT 

WRITE record-name [ FROM identif ier-1] 

[{ BEFORE } ADVANCING {{ identif ier-2} [LINE ]}] 
{ AFTER } {{integer } [LINES]} 

{ PAGE } 



Record-name and identifier-1 must not reference the same 
storage area. 

The record-name is the name of a logical record in the File 
Section of the Data Division and may be qualified. 

When identifier-2 is used in the ADVANCING phrase, it must 
be the name of an elementary integer data item. 

Integer or the value of the data item referenced by 
identifier-2 may be zero. 

The associated file must be open in the OUTPUT or EXTEND 
mode at the time of the execution of this statement. 

The logical record released by the execution of the WRITE 
statement is no longer available in the record area. 

Upon completion of a WRITE statement, the information in the 
area referenced by identifier-1 is available even though the 
information in the area referenced by record-name may not be 
available. 

The current record pointer is unaffected by the execution of 
a WRITE statement. 

The execution of the WRITE statement causes the value of the 
FILE STATUS data item, if any, associated with the file to 
be updated. 
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The maximum record size for a file is established at the 
time the file is created and must not subsequently be 
changed. 

The number of character positions on a mass storage device 
required to store a logical record in a file may or may not 
be equal to the number of character positions defined by the 
logical description of that record in the program. 

The execution of the WRITE statement releases a logical 
record to the operating system. The contents of the record 
area are not changed. 

When an attempt is made to write beyond the externally 
defined boundaries of a sequential file, an exception 
condition exists. The following action takes place: 

The value of the FILE STATUS data item, if any, of the 
associated file is set to a value indicating a boundary 
violation. 

If a USE AFTER STANDARD EXCEPTION declarative is 
explicitly or implicitly specified for the file, that 
declarative procedure will then be executed. 

If a USE AFTER STANDARD EXCEPTION declarative is not 
explicitly or implicitly specified for the file, the 
result is undefined. 



The FROM Phrase 

The results of the execution of the WRITE statement with the 
FROM phrase is equivalent to the execution of the statement 

MOVE identifier-1 TO record-name 

according to the rules specified for the MOVE statement, 
followed by the same WRITE statement without the FROM 
phrase. 

The contents of the record area prior to the execution of 
the implicit MOVE statement have no effect on the execution 
of this WRITE statement. 
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The ADVANCING Phrase 

The ADVANCING phrase allows control of the vertical 
positioning of each line on a representation of a printed 
page. If the ADVANCING phrase is not used, automatic 
advancing will be provided by the compiler to act as if the 
user had specified AFTER ADVANCING 1 LINE. If the ADVANCING 
phrase is used, advancing is provided as follows: 

If identif ier-2 is specified, the representation of the 
printed page is advanced the number of lines equal to 
the current value associated with identif ier-2. 

If integer is specified, the representation of the 
printed page is advanced the number of lines equal to 
the value of integer. 

If the BEFORE phrase is used, the line is presented 

before the representation of the printed page is 

advanced. 

If the AFTER phrase is used, the line is presented 

after the representation of the printed page is 

advanced. 

If PAGE is specified, the record is presented on the 

logical page before or after (depending on the phrase 

used) 

the device is repositioned to the next logical page. 

The ADVANCING phrase is valid only if the device-type 
assigned to the file is PRINT. 
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THE WRITE STATEMENT (Relative and Indexed 1-0? 



The WRITE statement releases a logical record for an output 
or input-output file. 

FORMAT 

WRITE record-name [ FROM identifier] 

E ; INVALID KEY imperative-statement] 

Record-name and identifier must not reference the same 
storage area. 

The record-name is the name of a logical record in the File 
Section of the Data Division and may be qualified. 

The INVALID KEY phrase must be specified if an applicable 
USE procedure is not specified for the associated file. 

The associated file must be open in the OUTPUT or 1-0 mode 
at the time of the execution of this statement. 

The logical record released by the execution of the WRITE 
statement is no longer available in the record area. 

The current record pointer is unaffected by the execution of 
a WRITE statement. 

The execution of the WRITE statement causes the value of the 
FILE STATUS data item, if any, associated with the file to 
be updated. 

The maximum record size for a file is established at the 
time the file is created and must not subsequently be 
changed. 

The number of character positions on a mass storage device 
required to store a logical record in a file may or may not 
be equal to the number of character positions defined by the 
logical description of that record in the program. 

The execution of the WRITE statement releases a logical 
record to the operating system. 

When a relative file is opened in the output mode, records 
may be placed into the file by one of the following: 

Radio /hack 

- 246 - 



RM/COBOL L anguage TRS-80 ® WRITE (Rel. & Ind. 1-0) 



If the access mode is sequential, the WRITE statement 
will cause a record to be released to the System. The 
first record will have a relative record number of one 
(1) and subsequent records released will have relative 
record numbers of 2, 3, 4, ... . If the RELATIVE KEY 
data item has been specified in the file control entry 
for the associated file, the relative record number of 
the record just released will be placed into the 
RELATIVE KEY data item by the System during execution 
of the WRITE statement. 

If the access mode is random or dynamic, prior to the 
execution of the WRITE statement the value of the 
RELATIVE KEY data item must be initialized in the 
program with the relative record number to be 
associated with the record in the record area. That 
record is then released to the System by execution of 
the WRITE statement. 

When a relative file is opened in the 1-0 mode and the 
access mode is random or dynamic, records are to be inserted 
in the associated file. The value of the RELATIVE KEY data 
item must be initialized by the program with the relative 
record number to be associated with the record in the record 
area. Execution of a WRITE statement then causes the 
contents of the record area to be released to the System. 

For an indexed file, the data item specified as the prime 
record key must be set by the program to the desired value 
prior to the execution of the WRITE statement. Records may 
be placed into the file by one of the following: 

If the access mode is sequential, records must be 
released to the System in ascending order of prime 
record key values. 

If the access mode is random or dynamic, records may be 
released to the System in any program-specified order. 



The FROM Phrase 



The results of the execution of the WRITE statement with the 
FROM phrase is equivalent to the execution of the statement: 
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MOVE identif ier-1 TO record-name 

according to the rules specified for the MOVE statement, 
followed by the same WRITE statement without the FROM 
phrase. 

The contents of the record area prior to the execution of 
the implicit MOVE statement have no effect on the execution 
of this WRITE statement. 



The INVALID KEY Phrase 

The INVALID KEY condition exists under the following 
circumstances : 

When the access mode is sequential for an indexed file 
opened in the output mode, and the value of the prime 
record key is not greater than the value of the prime 
record key of the previous record, or 

When an indexed file is opened in the output or 1-0 
mode, and the value of the prime record key is equal to 
the value of a prime record key of a record already 
existing in the file, or 

When a relative file has random or dynamic access mode 
and the RELATIVE KEY data item specifies a record which 
already exists in the file, or 

When an attempt is made to write beyond the externally 
defined boundaries of the file. 

When the INVALID KEY condition is recognized the execution 
of the WRITE statement is unsuccessful, the contents of the 
record area are unaffected and the FILE STATUS data item, if 
any, associated with file-name of the associated file is set 
to a value indicating the cause of the condition. 
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APPENDIX A 



ERROR MESSAGES 
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ERROR MESSAGES (Compile Time) 



The text of the source program is checked for syntax and 
semantic errors as it is scanned. Errors may cause 
interruption in scanning. In this case, text is ignored 
until a recovery point is found and a resume message is 
printed. Recovery points are chosen to minimize the amount 
of unanalyzed text without producing irrelevant error 
messages. In any case the constructs at fault are 
undermarked and error messages listed when the source line 
is printed. The error message includes either E's or W's 
indicating error or warning. For example: 



004030 02 STOCK PIC 9(16) PPP COMPUTATIONAL. 

$ 
***** DPICTURE *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

indicates a semantic number size error but 

005040 02 PART PIC X(4BX(5) SYNC. 

$ $ 
***** DSYNTAX *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
***** 2) SCAN RESUME *w*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 



indicates a syntax error at the first undermark and a 
recovery to the second undermark. 

The number preceding the error message is the undermark 
number, counting from left to right. More than one message 
may refer to the same undermark. 

Global errors such as undefined paragraph names and illegal 
control transfers are listed with the program summary at the 
end of the source listing. 

Compilation always proceeds to the end of the program, 
regardless of the number of errors found. Object code is 
produced such that an attempt to execute an erroneous 
statement will terminate execution with an appropriate error 
message. 
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COMPILER ERROR MESSAGES 

ACCESS CLASH 

Nonsequential access given for sequential file. 

BLANK WHEN ZERO 

BLANK WHEN ZERO clause given for nonnumeric or group 

CLASS 

The referenced identifier is not valid in a class 
condition . 

COPY 

COPY statement failed because of permanent error 
associated with the undermarked file-name. 

CORRESPONDING 

The CORRESPONDING phrase cannot be used with the 
referenced identifier. 

DATA OVERFLOW 

The data area (working-storage and literals) is larger 
than 65535 bytes in length. 

DATA TYPE 

Context does not allow data type of the referenced 
identifier. 

DEVICE CLASH 

Random characteristics given to nonrandom device. 

DEVICE TYPE 

OPEN or CLOSE mode inconsistent with device type. 

DOUBLE DECLARATION 

Multiple declaration of a file or identifier attribute. 

DOUBLE DEFINITION 

Multiple definition of an identifier. 

DUPLICATE 

Warning only. Multiple USE procedure declared for same 
function or file. 
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FILE DECL ERROR 

The referenced file-name is SELECTed and has an invalid 
or missing file description (FD). 

FILE NAME ERROR 

The referenced file-name has an invalid external file 
name declaration. 

FILE NAME REQUIRED 

File name not given as reference in I/O verb. 

FILE RECORD KEY ERROR 

The referenced file-name has a RECORD KEY which is 
incorrectly qualified or is not defined as a data item 
of the category alphanumeric within a record 
description entry associated with that file name. 

FILE RECORD SIZE ERROR 

The referenced file-name has a declared record size 
which conflicts with the actual data record 
descriptions or is a relative organization file with 
variable length records. 

FILE RELATIVE KEY ERROR 

The referenced file-name has a RELATIVE KEY which is 
incorrectly qualified, is defined in a record 
description associated with that file-name* or is not 
defined as an unsigned integer. 

FILE STATUS ERROR 

The referenced file-name has a status item which is 
incorrectly qualified, is not defined in the 
WORKING-STORAGE SECTION, or is not a two character 
alphanumeric item. 

FILE TYPE 

Access or organization of file conflicts with 
undermarked statement. 

FILLER LEVEL 

A nonelementary FILLER item is declared. 

GROUP CLASH 

USAGE or VALUE clause of group member conflicts with 
same clause for group. 
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GROUP VALUE CLASH 

Warning only. An item subordinate to a group with the 
VALUE IS clause is described with the SYNCHRONIZED, 
JUSTIFIED, or USAGE (other than USAGE IS DISPLAY) 
clause. 

IDENTIFIER 

Identifier reference is incorrectly constructed or the 
identifier has an invalid or double definition. 

ILLEGAL ALTER 

An ALTER statement references an unalterable paragraph 
or violates the rules of segmentation. 

ILLEGAL PERFORM 

A PERFORM statement references undefined or incorrectly 
qualified paragraph or the reference violates the rules 
of segmentation. 

INVALID ID 

The referenced identifier was not successfully defined. 

INVALID PARAGRAPH 

Context does not allow section name. 

JUSTIFY 

JUSTIFY clause given in conflict with other attributes. 

KEY REQUIRED 

Relative key not declared for random access relative 
file or record key not declared for indexed file. 

LABEL 

Presence or absence of label record conflicts with 
device standards. 

i-iJCi V -CjIj 

Level-number given is invalid either- intrinsically or 
because of position within a group. 

t TKnrar"'!? 

ij X IN J\ £\\jHi 

An identifier in the USING clause of the PROCEDURE 
title is not a linkage item or a statement references a 
linkage item not subordinate to an identifier in the 
USING clause of the PROCEDURE title. 

LITERAL VALUE 

Literal value given is incorrect in context. 
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MOVE 

Operands of MOVE verb specify an invalid move. 

MUST BE INTEGER 

Context requires decimal integer. 

MUST BE PROCEDURE 

Context requires procedure name either as reference of 
definition, or the reference must be a nondeclarative 
procedure-name . 

MUST BE SECTION 

Context requires procedure-name to be section. 

NESTING 

Illegal nesting of condition that is not an IF 
condition. 

NOT IN REDEFINE 

VALUE IS clause given in REDEFINES item. 

OCCURS 

Occurs clause given at invalid level or after three 
have been given for the same item. 

OCCURS DEPENDING ERROR 

The referenced object of a DEPENDING phrase has not 
been defined correctly. 

OCCURS -VALUE CLASH 

VALUE IS and OCCURS in effect for the same item. 

PICTURE 

Invalid picture syntax. 

PICTURE— BWZ CLASH 

Zero suppression and BLANK WHEN ZERO cannot be in 
effect for the same item. 

PICTURE-USAGE CLASH 

USAGE clause of implied usage conflicts with usage 
implied by picture. 

PROCEDURE INDEPENDENCE 

PERFORM given for procedures in independent segments 
not in the current segment. 
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PROGRAM OVERFLOW 

The instruction area is larger than 32767 bytes in 
length. 

RECORD KEY 

Record key declared for other than an indexed 
organization file or a START statement KEY phrase 
references a data item not aligned on the declared 
key's leftmost byte. 

RECORD REQUIRED 

Context requires record name. 

REDEFINES 

REDEFINES given within an OCCURS or not redefining the 
last allocated item. 

REDEFINES ERROR 

The referenced data-name redefines an item which does 
not have the same number of character positions and is 
not level 01. 

REFERENCE INVALID 

Reference given is not valid in context. 

RELATION 

Operands of relation test are incompatible. 

RELATIVE KEY 

Relative key declared for other than a relative 
organization file or a START statement KEY phrase 
references a data item other than the declared key. 

RESERVED WORD CONFLICT 

A COBOL reserved word or symbol is given where a user 
word is required. In the summary this is only a 
warning about an ANSI COBOL reserved word that is not 
an implemented COBOL reserved word. 

SCAN RESUME 

Warning only. Scanning was terminated at previous 
error message and resumes at undermarked character. 

SECTION CLASH 

A VALUE IS clause appears in the FILE or LINKAGE 
section. 
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SEGMENT 

Warning only. Segment number given in an independent 
segment is not the same as the current segment or the 
number of a new independent segment. 

S E P ARATOR 

Warning only. Redundant punctuation or a separator is 
not followed by the required space. 

SIGN 

SIGN clause given in conflict with usage and picture. 

SIZE 

Warning only. Size of data referenced not correct for 
context. 

SIZE ERROR 

Declared size of record conflicts with present 
reference. 

SUBSCRIPT 

Incorrect number of subscripts or indices for a 
reference. 

SYNC 

Synchronized clause given for a group item. 

SYNTAX 

Incorrect character or reserved word given for context 

UNDEFINED 

File referenced in FD entry was not defined. 

UNDEFINED DECLARATIVE PROCEDURE 

A declarative statement references a procedure not 
defined within the DECLARATIVES. 

UNDEFINED PROCEDURE 

A GO TO statement references an undefined or 
incorrectly qualified paragraph. 
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USE REQUIRED 

A DECLARATIVES section must begin with a USE statement 

USING COUNT 

Warning only. The item count is the USING list of a 
CALL statement is different from that of the first 
reference to the same program name. 

VALUE ERROR 

Value given in VALUE IS required truncation of nonzero 
digits. 

VALUE 

VALUE IS clause given in conflict with other declared 
attributes . 

VARIABLE RECORD 

Warning only. The INTO phrase is not allowed with 
variable size records. 



Radio /hack 

- 258 - 



RM/COBOL Language TDQ.Rn ® APPENDIX B 



APPENDIX B 



RESERVED WORDS 
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RESERVED WORD LIST 



The following is a list of RM/COBOL reserved words where: 

* denotes reserved words not reserved in ANSI standard 
COBOL 

+ denotes ANSI COBOL reserved words not reserved by the 
compiler. Their appearance will generate a warning at the 
end of the compilation listing. 

** denotes system-name. 



ACCEPT 


ALPHABETIC 


AREA 


ACCESS 


+ALSO 


+AREAS 


ADD 


ALTER 


+ASCENDING 


ADVANCING 


ALTERNATE 


ASSIGN 


AFTER 


AND 


AT 


ALL 


ARE 


AUTHOR 


*BEEP 


*BLINK 


BY 


BEFORE 


BLOCK 




BLANK 


+BOTTOM 




CALL 


+CODE-SET 


COMPUTE 


+CANCEL 


COLLATING 


CONFIGURATION 


+CD 


+COLUMN 


CONTAINS 


+CF 


COMMA 


+CONTROL 


+CH 


♦COMMUNICATION 


+CONTROLS 


CHARACTER 


COMP 


* CONVERT 


CHARACTERS 


*COMP-l 


COPY 


+CLOCK-UNITS 


*C0MP-3 


CORR 


CLOSE 


COMPUTATIONAL 


CORRESPONDING 


+COBOL 


*C0MPUTATI0NAL-1 


+COUNT 


+CODE 


*COMPUTATIONAL-3 


CURRENCY 


DATA 


+DEBUG-SUB-1 


♦DESCENDING 


DATE 


+DEBUG-SUB-2 


+DESTINATION 


+DATE-COMPILED 


+DEBUG-SUB-3 


+DETAIL 


DATE-WRITTEN 


♦DEBUGGING 


+DISABLE 


DAY 


DECIMAL-POINT 


DISPLAY 


+DE 


DECLARATIVES 


DIVIDE 


+DEBUG-CONTENTS 


UEiLiEj lEi 


DIVISION 


+DEBUG-ITEM 


+DELIMITED 


DOWN 


+DEBUG-LINE 


+DELIMITER 


DULICATES 


+DEBUG-NAME 


DEPENDING 


DYNAMIC 
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*ECHO 
+EGI 

ELSE 
+EMI 
+ENABLE 

END 



+END-OF-PAGE 
+ENTER 

ENVIRONMENT 
+EOP 

EQUAL 
* ERASE 



ERROR 
+ESI 
+EVERY 

EXCEPTION 

EXIT 

EXTEND 



FD 

FILE 

FILE-CONTROL 

+GENERATE 
GIVING 

+HEADING 
*HIGH 

1-0 

I-O-CONTROL 

IDENTIFICATION 

IF 

IN 

INDEX 

JUST 

KEY 



FILLER 
+FINAL 
FIRST 

GO 
GREATER 

HIGH-VALUE 
HIGH -VALUES 

INDEXED 
♦INDICATE 

INITIAL 
♦INITIATE 

INPUT 

INPUT-OUTPUT 

JUSTIFIED 



+FOOTING 
FOR 
FROM 

+GROUP 



INSPECT 

INSTALLATION 

INTO 

INVALID 

IS 



LABEL 
+LAST 

LEADING 

LEFT 
+LENGTH 

LESS 

MEMORY 
+MERGE 
+MESSAGE 

NATIVE 
♦NEGATIVE 
NEXT 



+LIMIT 


LINES 


+LIMITS 


LINKAGE 


+LINAGE 


LOCK 


+LINAGE-COUNTER 


LOW 


LINE 


LOW-VALUE 


+LINE-COUNTER 


LOW-VALUES 


MODE 


+MULTIPLE 


MODULES 


MULTIPLY 


MOVE 




NO 


NUMERIC 


NOT 




+NUMBER 
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OBJECT-COMPUTER 

OCCURS 

OF 

OFF 



OMITTED 
ON 

OPEN 
+OPTIONAL 



OR 

ORGANIZATION 
OUTPUT 
+OVERFLOW 



PAGE 
+PAGE-COUNTER 

PERFORM 
+PF 
+PH 

PIC 

PICTURE 



+PLUS 
+POINTER 

POSITION 
+POSITIVE 
*PRINT 
+PRINTING 

PROCEDURE 



+PROCEDURES 

PROCEED 

PROGRAM 

PROGRAM-ID 
*PROMPT 



+QUEUE 



QUOTE 



QUOTES 



RANDOM 
+RD 

READ 
+RECEIVE 

RECORD 

RECORDS 

REDEFINES 

REEL 
+REFERENCES 

RELATIVE 
+RELEASE 



+REMAINDER 
+REMOVAL 
RENAMES 
REPLACING 
+REPORT 
+REPORTING 
+REPORTS 
+RERUN 
+RESERVE 
+RESET 
+RETURN 



*REVERSE 

+REVERSED 
REWIND 
REWRITE 

+RF 

+RH 
RIGHT 
ROUNDED 
RUN 



SAME 
+ SD 
+SEARCH 

SECTION 

SECURITY 
+SEGMENT 
+SEGMENT-LIMIT 

SELECT 
+SEND 

SENTENCE 

SEPARATE 

SEQUENCE 

SEQUENTIAL 

SET 

SIGN 



SIZE 
+SORT 

+SORT-MERGE 
+SOURCE 

SOURCE-COMPUTER 

SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

STANDARD -1 

START 

STATUS 

STOP 
+STRING 
+SUB-QUEUE-1 



+SUB-QUEUE-2 

+SUB-QUEUE-3 
SUBTRACT 

+SUM 

♦SUPPRESS 
**SWITCH-1 
**SWITCH-2 



**SWITCH-8 
+SYMBOLIC 
SYNC 
SYNCHRONIZED 
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*TAB 


+TEXT 


TO 


+TABLE 


THAN 


+TOP 


TALLYING 


THROUGH 


TRAILING 


+ TAPE 


THRU 


+TYPE 


+TERMINAL 


TIME 




+TERMINATE 


TIMES 




UNIT 


UNTIL 


USAGE 


*UNLOCK 


UP 


USE 


+UNSTRING 


+UPON 


USING 


VALUE 


VALUES 


VARYING 


WHEN 


WORDS 


WRITE 


WITH 


WORKING-STORAGE 




ZERO 


ZEROES 


ZEROS 


+ 


> 


* 


— 


< 


/ 



** 
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GLOSSARY 



The terms in this appendix are defined in accordance with 
their meaning as used in this document describing COBOL and 
may not have the same meaning for other languages. 

These definitions are also intended to be either reference 
material or introductory material to be reviewed prior to 
reading the detailed language specifications. For this 
reason, these definitions are, in most instances, brief and 
do not include detailed syntactical rules. 



Access Mode: 

The manner in which records are to be operated upon within a 
file. 



Actual Decimal Point: 

The physical representation, using either of the decimal 
point characters period ( . ) or comma ( , ) , of the decimal 
point position in a data item. 



Alphabet-Name : 

A user-defined word, in the SPECIAL-NAMES paragraph of the 
Environment Division, that assigns a name to a specific 
character set and/or collating sequence. 



Alphabetic Character: 

A character that belongs to the following set of letters: A, 
B, C, D, E, F, G, H, I, J, K, L, M, N, 0, P, Q, R, S, T, U, 
V, W, X, Y, Z, and the space. 



Alphanumeric Character: 

Any character in the computer's character set. 



Alternate Record Key: 

A key, other than the prime record key, whose contents 
identify a record within an indexed file. 
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Arithmetic Expression: 

An arithmetic expression can be an identifier or a numeric 
elementary item, a numeric literal, such identifiers and 
literals separated by arithmetic operators, two arithmetic 
expressions separated by an arithmetic operator, or an 
arithmetic expression enclosed in parentheses. 



Arithmetic Operator: 

A single character that belongs to the following set 

Character Meaning 
+ addition 

subtraction 
* multiplication 
/ division 



Ascending Key: 

A key upon the values of which data is ordered starting with 
the lowest value of key up to the highest value of key in 
accordance with the rules for comparing data items. 



Assumed Decimal Point: 

A decimal point position which does not involve the 
existence of an actual character in a data item. The 
assumed decimal point has logical meaning but no physical 
representation . 



At End Condition: 

A condition caused during the execution of a READ statement 
for a sequentially accessed file. 



dXOCJv ■ 

A physical unit of data that is normally composed of one or 
more logical records. For mass storage files, a block may 
contain a portion of a logical record. The size of a block 
has no direct relationship to the size of the file within 
which the block is contained or to the size of the logical 
record(s) that are either continued within the block or that 
overlap the block. The term is synonymous with physical 
record. 
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Called Program: 

A program which is the object of a CALL statement combined 
at object time with the calling program to produce a run 
unit. 



Calling Program: 

A program which executes a CALL in another program. 



Character: 

The basic indivisible unit of the language. 



Character Position: 

A character position is the amount of physical storage 
required to store a single standard data format character 
described as USAGE is DISPLAY (one byte). 

Character-String : 

A sequence of contiguous characters which form a COBOL word, 
a literal, a PICTURE character-string, or a comment-entry. 



Class Condition: 

The proposition, for which a truth value can be determined, 
that the content of an item is wholly alphabetic or is 
wholly numeric. 



Clause: 

A clause is an ordered set of consecutive COBOL 
character-strings whose purpose is to specify an attribute 
of an entry. 



COBOL Character Set: 

The complete COBOL character set consists of the 51 
characters listed below. 

Character Meaning 

0,1,. ..,9 digit 

A,B,...,Z letter 

space (blank) 
+ plus sign 

minus sign (hyphen) 
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* 


aSteriSlC 


/ 


stroke (virgule, slash) 


a 


equal sign 


$ 


currency sign 


f 


comma (decimal point) 


• 


semicolon 


« 


period 


ii 


quotation mark 


( 


left parenthesis 


) 


right parenthesis 


> 


greater than symbol 


< 


less than symbol 



COBOL WORD. (See Word) 



Collating Sequence: 

The sequence in which the characters that are acceptable in 
a computer are ordered for purposes of comparing. 



Column: 

A character position within a print line. The columns are 
numbered from 1, by 1, starting at the leftmost character 
position of the print line and extending to the rightmost 
position of the print line. 



Combined Condition: 

A condition that is the result of connecting two or more 
conditions with the 'AND' or the 'OR' logical operator. 



Comment-Entry : 

An entry in the Identification Division that may be any 
combination of characters from the computer character set. 



Comment Line: 

A source program line represented by an asterisk in the 
indicator area of the line and any characters from the 
computer's character set in area A and area B of that line. 
The comment line serves only for documentation in a program. 
A special form of comment line represented by a stroke (/) 
in the indicator area of the line and any character from the 
computer's character set in area A and area B of that line 
causes page ejection prior to printing the comment. 
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Compile-Time: 

The time at which a COBOL source program is translated, by a 
COBOL compiler, to a COBOL object program. 



Compiler Directing Statement: 

A statement, beginning with a compiler directing verb, that 
causes the compiler to take a specific action during 
compilation. 



Complex Condition: 

A condition in which one or more logical operators act upon 
one or more conditions. 



Computer -Name : 

A system-name that identifies the computer upon which the 
program is to be compiled or run (commentary only). 



Condition: 

A status of a program at execution time for which a truth 
value can be determined. Where the term 'condition' 
(condition-1, condition-2, ...) appears in these language 
specifications in or in reference to 'condition' 
(condition-1, condition-2,, ...) of a general format, it is a 
conditional expression consisting of a simple condition, 
optionally parenthesized, consisting of the syntactically 
correct combination of simple conditions, logical operators, 
and parentheses, for which a truth value can be determined. 



Condition-Name : 

A user-defined word assigned to a specific value, set of 
values, or range of values, within the complete set of 
values that a conditional variable may possess; or the 
user-defined word assigned to a status of a system software 
switch. 



Condition-Name Condition: 

The proposition, for which a truth value can be determined, 
that the value of a conditional variable is a member of the 
set of values attributed to a condition-name associated with 
the conditional variable. 



Radia /haek 

- 271 - 



APPENDIX C TRS-80 ® RM/COBOL Language 



Conditional Expression: 

A simple condition or a complex condition specified in an IF 
or PERFORM statement. 



Conditional Statement: 

A conditional statement specifies that the truth value of a 

condition is to be determined and that the subsequent action 

of the object program is dependent on this truth value. 



Conditional Variable: 

A data item one or more values of which has a condition name 
assigned to it. 



Configuration Section: 

A section of the Environment Division that describes overall 
specifications of source and object computers. 



Connective: 

A reserved word that is used to: 

Associate a data-name, paragraph-name or condition-name 
with its qualifier. 

Link two or more operands written in a series. 

Form conditions (logical connectives). 



Contiguous Items: 

Items that are described by consecutive entries in the Data 
Division, and that bear a definite hierarchic relationship 
to each other. 



Counter : 

A data item used for storing numbers of number 
representations in a manner that permits these numbers to be 
increased or decreased by the value of another number, or to 
be changed or reset to zero or to an arbitrary positive or 
negative value. 

Currency Sign: 

The character '$' of the COBOL character set. 
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Currency Symbol: 

The character defined by the CURRENCY SIGN clause in the 
SPECIAL-NAMES paragraph. If no CURRENCY SIGN clause is 
present in a COBOL source program, the currency symbol is 
identical to the currency sign. 



Current Record: 

The record which is available in the record area associated 
with the file. 



Current Record Pointer: 

A conceptual entity that is used in the selection of the 
next record. 



Data Clause: 

A clause that appears in a data description entry in the 
Data Division and provides information describing a 
particular attribute of a data item. 

Data Description Entry: 

An entry in the Data Description that is composed of a 

level-number followed by a data-name, if required, and then 

followed by a set of data clauses, as required. 



Data Item: 

A character or a set of contiguous characters (excluding in 

either case literals) defined as a unit of data by the COBOL 

program. 



Data-Name: 

A user-defined word that names a data item described in a 
data description entry in the Data Division. When used in 
the general formats, 'data-name' represents a word which can 
neither be subscripted, indexed, nor qualified unless 
specifically permitted by the rules for that format. 



Debugging Line: 

A debugging line is any line with 'D' in the indicator area 

of the line. 
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Declaratives: 

A set of one or more special purpose sections, written at 
the beginning of the Procedure Division, the first of which 
is preceded by the key word DECLARATIVES and the last of 
which is followed by the key words END DECLARATIVES. A 
declarative is composed of a section header, followed by a 
USE compiler directing sentence, followed by a set of zero, 
one or more associated paragraphs. 

Declarative-Sentence : 

A compiler-directing sentence consisting of a single USE 
statement terminated by the separator period. 

Delimiter: 

A character or a sequence of contiguous characters that 
identify the end of a string of characters and separates 
that string of characters from the following string of 
characters. A delimiter is not part of the string of 
characters that it delimits. 



Digit Position: 

A digit position is the amount of physical storage required 
to store a single digit. This amount may vary depending on 
the usage of the data item describing the digit position. 

Division: 

A set of zero, one or more sections of paragraphs, called 
the division body, that are formed and combined in 
accordance with a specific set of rules. There are four (4) 
divisions in a COBOL program: Identification, Environment, 
Data, and Procedure. 



Division Header: 

A combination of words followed by a period and a space that 

indicates the beginning of a division. The division headers 

are: 

IDENTIFICATION DIVISION 

ENVIRONMENT DIVISION 

DATA DIVISION 

PROCEDURE DIVISION [USING data-name-1 [data-name-2 ] . . . ] 
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Dynamic Access: 

An access mode in which specific logical records can be 
obtained from or placed into a mass storage file in a non- 
sequential manner (see Random Access) and obtained from a 
file in a sequential manner (See Sequential Access), during 
the scope of the same OPEN statement. 



Editing Character: 

A single character of fixed two character combination belonging 
to the following set: 



Character 

B 



+ 

CR 

DB 

Z 
* 

$ 



/ 



Meaning 

space 

zero 

plus 

minus 

credit 

debit 

zero suppress 

check protect 

currency sign 

comma (decimal point) 

period (decimal point) 

stroke (virgule, slash) 



Elementary Item: 

A data item that is described as not being further logically 
subdivided. 



End of Procedure Division: 

The physical position in a COBOL source program after which no 
further procedures appear. 



Entry: 

Any descriptive set of consecutive clauses terminated by a period 
and written in the Identification Division, Environment Division, 
or Data Division of a COBOL source program. 



Environment Clause: 

A clause that appears as part of an Environment Division entry. 
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Execution Time. (See Object Time) 



Extend Mode: 

The state of a file after execution of an OPEN statement, with 
the EXTEND phrase specified, for that file and before the 
execution of a CLOSE statement for that file. 



Figurative Constant: 

A compiler generated value referenced through the use of certain 
reserved words. 

File: 

A collection of records. 



File Clause: 

A clause that appears as part of the file description (FD) 

entries in the Data Division. 



FILE-CONTROL: 

The name of an Environment Division paragraph in which the data 
files for a given source program are declared. 

File Description Entry: 

An entry in the File Section of the Data Division that is 
composed of the level indicator FD, followed by a file-name, and 
then followed by a set of file clauses as required. 

File-Name: 

A user-defined word that names a file described in a file 

description entry within the File Section of the Data Division. 

File Organization: 

The permanent logical file structure established at the time that 
a file is created. 



File Section: 

The section of the Data Division that contains file description 
entries togetner wi tn tneir associated record descriptions* 
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Format : 

A specific arrangement of a set of data. 



Group Item: 

A named contiguous set of elementary or group items 



I -0 -CONTROL: 

The name of an Environment Division paragraph in which 
sharing of same areas by several data files is specified. 



I-0-M0DE: 

The state of a file after execution of an OPEN statement, 
with the 1-0 phrase specified, for that file and before the 
execution of a CLOSE statement for that file. 

Identifier: 

A data-name, followed as required, by the syntactically 
correct combination of qualifiers, subscripts, and indices 
necessary to make unique reference to a data item. 



Imperative Statement: 

A statement that begins with an imperative verb and 
specifies an unconditional action to be taken. An 
imperative statement may consist of a sequence of imperative 
statements. 



Index: 

A data item, the contents of which represent the 
identification of a particular element in a table. 



Index Data Item: 

A data item in which the value associated with an index-name 
can be stored. 



Index-Name: 

A user-defined word that names an index associated with a 
specific table. 



Indexed Data-Name: 

An identifier that is composed of a data-name, followed by 
one or more index-names enclosed in parentheses. 
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Indexed File: 

A file with indexed organization. 



Indexed Organization: 

The permanent logical file structure in which each record is 
identified by the value of one fixed length key within that 
record. 



Input File: 

A file that is opened in the input mode. 



Input Mode: 

The state of a file after execution of an OPEN statement, 
with the INPUT phrase specified, for that file and before 
the execution of a CLOSE statement for that file. 



Input-Output File: 

A file that is opened in the 1-0 mode. 



Input-Output Section: 

The section of the Environment Division that names the files 
and the external media required by an object program and 
which provides information required for transmission and 
handling of data during execution of the object program. 



Integer: 

A numeric literal or a numeric data item that does not 
include any character positions to the right of the assumed 
decimal point. Where the term 'integer' appears in general 
formats, integer must not be a numeric data item, and must 
not be signed, nor zero, unless explicitly allowed by the 
rules of that format. 



Invalid Key Condition: 

A condition, at object time, caused when a specific value of 
the key associated with an indexed or relative file is 
determined to be invalid. 
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Key: 

A data item which identifies the location of a record. 



Key Word: 

A reserved word whose presence is required when the format 
in which the word appears is used in a source program. 



Level Indicator: 

Two alphabetic characters that identify a specific type of 
file or a position in hierarchy. 



Level -Number : 

A user-defined word which indicates the position of a data 
item in the hierarchical structure of a logical record or 
which indicates special properties of a data description 
entry. A level-number is expressed as a one- or two-digit 
number. Level-numbers in the range 1 through 49 indicate 
the position of a data item in the hierarchical structure of 
a logical record. Level-numbers in the range 1 through 9 
may be written either as a single digit or as a zero 
followed by a significant digit. Level-numbers 77 and 88 
identify special properties of a data description entry. 



Library-Name: 

A user-defined word that names a COBOL library that is to be 
used by the compiler for a given source program compilation. 



Linkage Section: 

The section in the Data Division of the called program that 
describes the data items available from the calling program. 
These data items may be referred to by both the calling and 
called program. 



Literal: 

A character-string whose value is implied by the ordered set 
of characters comprising the string. 
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Logical Operator: 

One of the reserved words AND, OR, or NOT. In the formation 
of a condition, both or neither of AND and OR can be used as 
logical connectives. NOT can be used for logical negation. 



Mass Storage: 

A storage medium on which data may be organized and 
maintained in both a sequential and nonsequential manner. 



Mass Storage File: 

A collection of records that is assigned to a mass storage 
med i um . 



Mnemon i c -Name : 

A user-defined word that is associated in the Environment 
Division with a specified system-name. 



Native Character Set: 

The character set associated with the COBOL Compiler 
(ASCII) . 



Native Collating Sequence: 

The collating sequence associated with the native character 



Negated Combined Condition: 

The 'NOT' logical operator immediately followed by a 
parenthesized combined condition. 



Negated Simple Condition: 

The 'NOT' logical operator immediately followed by a simple 
condition. 



Next Executable Sentence: 

The next sentence to which control will be transferred after 
execution or tne currsnt statement is complete. 



Radio /hack 

- 280 - 



RM/COBOL Language TRS-SO ® APPENDIX C 



Next Record: 

The record which logically follows the current record of a 

file. 



Noncontiguous Items: 

Elementary data items, in the Working-Storage and Linkage 
Sections, which bear no hierarchic relationship to other 
data items. 



Nonnumeric Item: 

A data item whose description permits its contents to be 
composed of any combination of characters taken from the 
computer's character set. Certain categories of nonnumeric 
items may be formed from more restricted character sets. 



Nonnumeric Literal: 

A character-string bounded by quotation marks. The string 
of characters may include any character in the computer's 
character set. To represent a single quotation mark 
character within a nonnumeric literal, two contiguous 
quotation marks must be used. 



Numeric Character: 

A character that belongs to the following set of digits: 0, 
1, 2, 3, 4, 5, 6, 7, 8, 9. 



Numeric Item: 

A data item whose description restricts its contents to a 
value represented by characters chosen from the digits '0' 
through '9'; if signed, the item may also contain a '+', 
'-', or other representation of an operational sign. 



Numeric Literal: 

A literal composed of one or more numeric characters that 
also may contain either a decimal point, or an algebriac 
sign, or both. The decimal point must not be the rightmost 
character. The algebraic sign, if present, must be the 
leftmost character. 
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OBJECT-COMPUTER : 

The name of an Environment Division paragraph in which the 
computer environment, within which the object program is 
executed, is described. 



Object of Entry: 

A set of operands and reserved words, within a Data Division 
entry, that immediately follows the subject of the entry. 

Object Program: 

A set or group of executable instructions and other material 
designed to interact with data to provide problem solutions. 
In this context, an object program is generally the result 
of the operation of a COBOL compiler on a source program. 
Where there is no danger of ambiguity, the word 'program 1 
alone may be used in place of the phrase 'object program'. 

Object Time: 

The time at which an object program is executed. 



Open Mode: 

The state of a file after execution of an OPEN statement for 
that file and before the execution of a CLOSE statement for 
that file. The particular open mode is specified in the 
OPEN statement as either INPUT, OUTPUT, 1-0, or EXTEND. 



Occurrence Number: 

The relative data item number in a table. 



Operand : 

Whereas the general definition of operand is 'that component 
which is operated upon', for the purposes of this 
publication, any lowercase word (or words) that appears in a 
statement or entry format may be considered to be an operand 
and, as such, is an implied reference to the data indicated 
by the operand. 



Operational Sign: 

An algebraic sign, associated with a numeric data item or a 
numeric literal, to indicate whether its value is positive 
or negative. 
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Optional Word: 

A reserved word that is included in a specific format only 
to improve the readability of the language and whose 
presence is optional to the user when the format in which 
the word appears is used in a source program. 



Output File: 

A file that is opened in either the output mode or extend 
mode . 



Output Mode: 

The state of a file after execution of an OPEN statement, 
with the OUTPUT or EXTEND phrase specified, for that file 
and before the execution of a CLOSE statement for that file. 



Paragraph: 

In the Procedure Division, a paragraph-name followed by a 
period and a space and by zero, one, or more sentences. In 
the Identification and Environment Divisions, a paragraph 
header followed by zero, one, or more entries. 



Paragraph Header: 

A reserved word, followed by a period and a space that 
indicates the beginning of a paragraph in the Identification 
and Environment Divisions. The permissible paragraph 
headers are: 

In the Identification Division: 

PROGRAM- ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

SECURITY. 

In the Environment Division: 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

FILE-CONTROL. 

I-0-CONTROL. 
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Paragraph-Name : 

A user-defined word that identifies and begins a paragraph 
in the Procedure Division. 



Phrase: 

A phrase is an ordered set of one or more consecutive COBOL 
character-strings that form a portion of a COBOL procedural 
statement or of a COBOL clause. 



Physical Record. (See Block) 



Prime Record Key: 

A key whose contents uniquely identify a record within an 
indexed file. 



Procedure: 

A paragraph or group of logically successive paragraphs, or 
a section or group of logically successive sections, within 
the Procedure Division. 



Procedure-Name : 

A user-defined word which is used to name a paragraph or 
section in the Procedure Division. It consists of a 
paragraph-name (which may be qualified), or a section-name 



Program-Name : 

A user-defined word that identifies a COBOL source program, 



Punctuation Character: 

A character that belongs to the following set: 

Character Meaning 

, comma 

; semicolon 

period 
" quotation mark 

( isit par entnes i s 
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right parenthesis 

space 

equal sign 



Qualified Data-Name: 

An identifier that is composed of a data-name followed by 
one or more sets of either of the connectives OF and IN 
followed by a data-name qualifier. 



Qualifier: 

A data-name which is used in a reference together with 
another data name at a lower level in the same hierarchy, 
section-name which is used in a reference together with a 
paragraph-name specified in that section. 



Random Access: 

An access mode in which the program-specified value of a key 
data item identifies the logical record that is obtained 
from, deleted from, or placed into a relative or indexed 
file. 



Record Area: 

A storage area allocated for the purpose of processing the 
record described in a record description entry in the File 
Section. 



Record Description. (See Record Description Entry) 



Record Description Entry: 

The total set of data description entries associated with a 
particular record. 



Record Key: 

The prime record key whose contents uniquely identify a 
record within an indexed file. 



Record-Name: 

A user-defined word that names a record described in a 
record description entry in the Data Division. 
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Reference Format: 

A format that provides a standard method for describing 
COBOL source programs . 



Relation. (See Relational Operator) 



Relation Character: 

A character that belongs to the following set 



Lnsr acter 

> 
< 



Meaning 

greater than 
less than 
equal to 



Relation Condition: 

The proposition, for which a truth value can be determined, 
that the value of a data item has a specific relationship to 
the value of another data item. (See Relational Operator) 



Relational Operator: 

A reserved word, a relation character, a group of 
consecutive reserved words, or a group of consecutive 
reserved words and relation characters used in the 
construction of a relation condition. The permissible 
operators and their meanings are: 



Relational Operator 

IS [NOT] GREATER THAN 

IS [NOT] > 

IS [NOT] LESS THAN 

IS [NOT] < 

IS [NOT] EQUAL TO 

IS [NOT] = 



Meaning 

Greater than or not 
greater than 

Less than or not 
less than 

Equal to or not 
equal to 
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Relative File: 

A file with relative organization. 



Relative Key: 

A key whose contents identifies a logical record in a 

relative file. 



Relative Organization: 

The permanent logical file structure in which each record is 
uniquely identified by an integer value greater than zero, 
which specifies the record's logical ordinal position in the 
file. 



Reserved Word: 

A COBOL word specified in the list of words which may be 

used in COBOL source programs, but which must not appear in 

the programs as user-defined words or system-names. 



Run Unit: 

A set of one or more object programs which function at 

object time, as a unit to provide problem solutions. 



Section: 

A set of zero, one, or more paragraphs or entries, called a 
section body, the first of which is preceded by a section 
header. Each section consists of the section header and the 
related section body. 



Section Header: 

A combination of words followed by a period and a space that 
indicates the beginning of a section in the Environment, 
Data and Procedure Division. 

In the Environment and Data Divisions, a section header is 
composed of reserved words followed by a period and a space. 
The permissible section headers are: 

In the Environment Division: 

CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 
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In the Data Division: 

FILE SECTION. 
WORKING-STORAGE SECTION 
LINKAGE SECTION. 

In the Procedure Division, a section header is composed of a 
section-name, followed by the reserved word SECTION, 
followed by a segment-number (optional), followed by a 
period and a space. 



Section-Name: 

A user-defined word which names a section in the Procedure 
Division . 



Segment -Number : 

A user-defined word which classifies sections in the 
Procedure Division for purposes of segmentation. 
Segment-numbers may contain only the characters '#', 
' I',..., '9'. A segment-number may be expressed either as a 
one- or two-digit number. 



Sentence: 

A sequence of one or more statements, the last of which is 
terminated by a period followed by a space. 



Separator : 

A punctuation character used to delimit character-strings. 

Sequential Access: 

An access mode in which logical records are obtained from or 
placed into a file in a consecutive predecessor-to-successor 
logical record sequence determined by the order of records 

XII wll w X JL JL w • 



Sequential File: 

A file with sequential organization. 



Sequential Organization: 

The permanent logical file structure in which a record is 
identified by a predecessor-successor relationship 
established when the record is placed into the file. 
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Simple Condition: 

Any single condition chosen from the set 

relation condition 
class condition 
condition-name condition 
switch-status condition 
(simple-condition) 



SOURCE-COMPUTER: 

The name of an Environment Division paragraph in which the 
computer environment, within which the source program is 
compiled, is described. 



Source Program: 

A syntactically correct set of COBOL statements beginning 
with an Identification Division and ending with the end of 
the Procedure Division. In contexts where there is no 
danger of ambiguity, the word 'program' alone may be used in 
place of the phrase 'source program. 1 

Special Character: 

A character that belongs to the following set: 

Character Meaning 

+ plus 

minus sign 

* asterisk 

/ stroke (virgule, slash) 

= equal sign 

$ currency sign 

, comma (decimal point) 

; semicolon 

period (decimal point) 

" quotation mark 

( left parenthesis 

) right parenthesis 

> greater than symbol 

< less than symbol 

Special-Character Word: 

A reserved word which is an arithmetic operator or a 
relation character. 
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SPECIAL - NAMES : 

The name of an Environment Division paragraph in which 
switch-names are related to user-defined words. 



Standard Data Format: 

The concept used in describing the characteristics of data 
in a COBOL Data Division under the characteristics or 
properties of the data are expressed in a form oriented to 
the appearance of the data on a printed page of infinite 
length and breadth, rather than a form oriented to the 
manner in which the data is stored internally in the 
computer, or on a particular external medium. 



Statement: 

A syntactically valid combination of words and symbols 
written in the Procedure Division beginning with a verb. 



Subject of Entry: 

An operand or reserved word that appears immediately 
following the level indicator or the level-number in a Data 
Division entry. 



Subprogram. (See Called Program) 



Subscript: 

An integer whose value identifies a particular element in a 

LSD16 • 



Subscripted Data-Name: 

An identifier that is composed of a data-name followed by 
one or more subscripts enclosed in parentheses. 



Switch-Status Condition: 

The proposition, for which a truth value can be determined 
that a switch, capable of being set to an 'on 1 or 'off 
status, has been set to a specific status. 



System-Name: 

A COBOL word which is used to communicate with the operating 
environment. 

(ft 
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Table: 

A set of logically consecutive items of data that are 
defined in the Data Division by means of the OCCURS clause 



Table Element: 

A data item that belongs to the set of repeated items 
comprising a table. 



Text-Name : 

A file access name that identifies library text. 



Truth Value: 

The representation of the result of the evaluation of a 
condition in terms of one of two values: 

true 
false 



Unary Operator: 

A plus (+) or a minus (-) sign, which precedes a variable or 

a left parenthesis in an arithmetic expression and which has 

the effect of multiplying the expression by +1 or -1 

respectively. 



User-Defined Word: 

A COBOL word that must be supplied by the user to satisfy 
the format of a clause or statement. 



Variable: 

A data item whose value may be changed by execution of the 
object program. A variable used in an arithmetic expression 
must be a numeric elementary item. 



Verb: 

A word that expresses an action to be taken by a COBOL 
compiler or object program. 



Radie/haek 

- 291 - 



APPENDIX C TRS-80 ® RM/COBOL Language 



Word: 

A character-string of not more than 30 characters which 
forms a user-defined word, a system-name, or a reserved 
word. 



Working-Storage Section: 

The section of the Data Division that describes working 
storage data items, composed either of noncontiguous items 
or of working storage records or of both. 



77-Level-Description-Entry: 

A data description entry that describes a noncontiguous data 
item with the level-number 77. 
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APPENDIX D 



COMPOSITE LANGUAGE SKELETON 
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COMPOSITE LANGUAGE SKELETON 



This section contains the composite language skeleton of the 
American National Standard COBOL. It is intended to display 
complete and syntactically correct formats. 

For the general formats of the four divisions the leftmost 
margin is equivalent to margin A in a COBOL source program. 
The first indentation after the leftmost margin is 
equivalent to margin B in a COBOL source program. 

For the general formats of the verbs and conditions the 
leftmost margin indicates the beginning of the format for a 
new COBOL verb. The first indentation after the leftmost 
margin indicates continuation of the format of the COBOL 
verb. 

The following is a summary of the formats shown on the 
following pages: 

Identification Division general format 

Environment Division general format 

The three formats of the file control entry 

Data Division general format 

The three formats for a data description entry 

The format for a field definition entry 

Procedure Division general format 

General format of verbs listed in alphabetical 

order 
General format for conditions 
Formats for qualification, subscripting, indexing, 

and an identifier 
General format for a COPY statement 
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RM/COBOL LANGUAGE SYNTAX 



The RM/COBOL language is based upon the ANSI X3. 23-1974 
COBOL standard. Minor departures from that document are 
reflected in the syntax description which follows but are 
not separately noted. Semantic rules are not changed. 

The description is in a condensed form of the standard COBOL 
syntax notation. In some cases separate formats are 
combined and general terms are employed for user names. 

System-names and implementation restrictions are: 

computer -name: User-defined word 
program-name: 8-character name 
switch-names: SWITCH-1, . . . , SWITCH-8 
device-types: PRINT 

INPUT 

OUTPUT 

INPUT-OUTPUT 

RANDOM 
external-file-name: One- to thirty-character name 
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IDENTIFICATION DIVISION GENERAL FORMAT 



IDENTIFICATION DIVISION. 



PROGRAM-ID. program-name. 

[ AUTHOR, [comment-entry] ... ] 

[ INSTALLATION . [comment-entry] ... ] 

[ DATE -WRITTEN, [comment-entry] ... ] 

[SECURITY, [comment-entry] ... ] 
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ENVIRONMENT DIVISION GENERAL FORMAT 



ENVIRONMENT DIVISION. 



CONFIGURATION SECTION. 



SOURCE-COMPUTER, computer -name . 

OBJECT-COMPUTER, computer -name. 

[, MEMORY SIZE integer { WORDS }] 

{ CHARACTERS } 
{ MODULES } 

[, PROGRAM COLLATING SEQUENCE IS alphabet-name]. 

[ SPECIAL-NAMES. [, switch-name 

{ON STATUS IS condition-name-1 [ ,OFF STATUS IS condition-name-2]}] 

{ OFF STATUS IS condition-name-2 [ ,0N STATUS IS condition-name-1 ]} 3 

E, alphabet-name IS { STANDARD-1 }] ... 

{ NATIVE } 

[, CURRENCY SIGN IS literal-1] 

[ , DECIMAL-POINT IS COMMA ] . ] 

[ INPUT-OUTPUT SECTION. 



{ file-control -entry} . . . 
[ I-O-CONTROL. 

[; SAME AREA FOR file-name-1 [, file-name-2] ...]... .]] 
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FILE CONTROL ENTRY GENERAL FORMAT 

FORMAT 1 

SELECT file-name 

ASSIGN TO device- type {"external -file-name"} 

{data-name-1 } 

[ ; ORGANIZATION IS SEQUENTIAL ] 

[ ; ACCESS MODE IS SEQUENTIAL ] 

[; FILE STATUS IS data-name-2] . 

FORMAT 2 

SELECT file-name 

ASSIGN TO RANDOM , {"external-file-name" } 

{data-name-1 } 

; ORGANIZATION IS RELATIVE 

[; ACCESS MODE IS { SEQUENTIAL [, RELATIVE KEY IS data-name-2]} ] 
{{ RANDOM } , RELATIVE KEY IS data-name-2 } 

{{ DYNAMIC } ~ } 

[; FILE STATUS IS data-name-3] . 
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FORMAT 3 

SELECT file-name 

ASSIGN TO RANDOM , {"exernal-file-name"} 

{data-name-1 } 

' ORGANIZATION IS INDEXED 

[ ; ACCESS MODE IS { SEQUENTIAL } ] 
{ RANDOM } 
{ DYNAMIC } 

• RECORD KEY IS data-name-2 

[; ALTERNATE RECORD KEY IS data-name-3 [WITH DUPLICATES ]] 

[; FILE STATUS IS data-name-4 ] . 
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DATA DIVISION GENERAL FORMAT 



DATA DIVISION. 



[FILE SECTION. 



[ED file-name 



BLOCK CONTAINS [ integer -1 TO] integer-2 { RECORDS }] 

{ CHARACTERS } 

RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 

LABEL { RECORD IS } { STANDARD } 
{ RECORDS ARE } { OMITTED } 

VALUE OF LABEL IS nonnumeric-literal-1] 

DATA { RECORD IS } data-name-1 [, data-name-2] ... ] 
{RECORDS ARE} 



[record-description-entry] ... ] 

[ WORKING-STORAGE SECTION. 

[ 77 -level-description-entry ] 
[ record-description-entry ] 

[LINKAGE SECTION. 



[ 77 -level -description-entry ] 
[ record-description-entry ] 
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DATA DESCRIPTION ENTRY GENERAL FORMAT 



FORMAT 1 



level -number {data-name-1} 
{ FILLER } 

[; REDEFINES data-name-2 ] 

[, { PICTURE } IS character-string] 
{PIC } 



[; [USAGE IS] 



COMPUTATIONAL 



COMP 



COMPUTATIONAL-l 



CCMP-1 



ODMPUTATIONAL-3 



CQMP-3 



DISPLAY 



INDEX 



[; [ SIGN IS] TRAILING [ SEPARATE CHARACTER] ] 

[; OCCURS {integer-1 TIMES } 

{ integer -1 TO integer-2 TIMES DEPENDING ON data-name-3} 

[ INDEXED BY index-name-1 [, index-name-2] ...] ] 

[; {SYNCHRONIZED} [LEFT ] ] 



{SYNC 



} [RIGHT] 



[; { JUSTIFIED } RIGHT] 
{ JUST } 

[ ; BLANK VHEN ZERO ] 

[; VALUE IS literal] . 
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FORMAT 2 



66 data-name-1; RENAMES data-name-2 [{ THROUGH } data-name-3] 

{THRU } 



FORMAT 3 

88 condition-name: { VALUE IS } 

{ VALUES ARE } 

literal -1 [{ THROUGH } literal-2] 
{ THRU } 

[, literal-3 [{ THROUGH } literal-4] ] ... . 
{THRU } 



Radia /hack 

- 303 - 



Appendix D TRS-8D ® RM/COBOL Language 

PROCEDURE DIVISION GENERAL FORMAT 

FORMAT 1 

PROCEDURE DIVISION [ USING data-name-1 [ ,data-name-2] ... ] . 

[ DECLARATIVES. 

{section-name SECTION [segment-number], declarative-sentence 

[paragraph-name, [sentence]... ] ... } ... 

END DECLARATIVES. ] 

{ section-name SECTION [ segment-number ] . 

[paragraph-name, [sentence] ... ] ... } ... 

[ END PROGRAM ]. 

FORMAT 2 

PROCEDURE DIVISION [ USING data-name-1 [, data-name- 2] ... ] . 

{paragraph-name, [sentence] ... } ... 

[END PROGRAM] . 
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ACCEPT {identifier -1 [ , UNIT {identifier-2}] 

{ literals } 

[, LINE {identifier-3 }] [, POSITION {identifier-4}] 
{literal-2 } {literal-3 } 

[,SIZE { identif ier-5 }] [, PROMPT [literal-5]] 
{ literal-4 } 

[, BCHO ] [, CONVERT ] [ ,TAB] [ ERASE ] [, NO BEEP ] 

[ ,OFF] [ ,0N EXCEPTION identif ier-6 imperative-statement] } . . 

ACCEPT identifier FROM { DATE } 

{ DAY } 
{ TIME } 

ADD {identifier-1} [ f identifier-2] ... TO identif ier-m [ ROUNDED ] 
{ literal -1 } [, literal-2 ] 

[; ON SIZE ERROR imperative-statement] 

ADD {identif ier-1}, {identifier-2} [, identifier-3] ... 
{ literal -1 } {literal-2 } [ f literal-3 ] 

GIVING identifier -m [ ROUNDED ] 

[; CN SIZE ERROR imperative-statement] 

ADD { CORRESPONDING } identifier-1 TO identifier-2 
{ CORR } 

[ ROUNDED ] [; CN SIZE ERROR imperative-statement 3 

ALTER procedure-name-1 TO [ PROCEED TO] procedure-name-2 

[,prcx;edure-name-3 TO [ PROCEED TO] procedure-name-4] ... 

CALL {identifier-1} [ USING data-name-1 [ ,data-name-2] ... ] 
{ literal -1 } 
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CLOSE file-name-1 [{ REEL } [WITH NO REWIND }] 

{ UNIT } 

[WITH {NO REWIND } 
{ LOCK } 

[,file-name-2 [{ REEL } [WITH NO REWIND ] ] ] ... 
{ UNIT } 

[WITH {NO REWIND } 
{ LOCK } 

COMPUTE identifier -1 [ ROUNDED ] = arithmetic-expression 
[; ON SIZE ERROR imperative-statement ] 

DELETE file-name RECORD [; INVALID KEY imperative-statement] 



DISPLAY {{identifier-1} [ , UNIT {identifier-2}] 
{literal-1 } {literal-2 } 

[, LINE {identifier-3}] [, POSITION {identifier-4}] 
{literal-3 } {literal-4 } 

[,SIZE {identifier -5}] [, EEEP ] [, ERASE] 
{ literal -5 } 

[.{ HIGH }] [, BLINK ] [ . REVERSE ] } ... 
{LOW } 



DIVIDE {identifier-1} INTO identifier-2 [ ROUNDED ] 
{literal-1 } 

[;CN SIZE ERROR imperative-statement] 

DIVIDE {identifier-1} INTO {identifier-2} GIVING identifier-3 
{literal-1 } {literal-2 } 

[ ROUNDED ] [;CN SIZE ERROR imperative-statement] 

DIVIDE {identifier-1} BY {identifier-2} GIVING identifier-3 [ ROUNDED ] 

t -Litera.!.— x / t jLiteraj-— ^. / 

[;CN SIZE ERROR imperative-statement] 

Radio /hack 

- 306 - 



RM/COBOL Language . ne Qr% ® Appendix D 



EXIT [ PROGRAM ] . 

GO TO procedure-name-1 

GO TO procedure-name-1 [ ,procedure-name-2] ... , procedure-nanie-n 

DEPENDING ON identifier 

IF condition; { statement -1 } {; ELSE statement-2 } 
{ NEXT SENTENCE } { ; ELSE NEXT SENTENCE } 

INSPECT identifier-1 

TALLYING identifier-2 FOR {{ALL } {identifier-3}} 

{ literal -1 } 
{{ LEADING } } 

{ CHARACTERS > 

[{BEFORE} INITIAL Udentifier-4]} ] ] 



{literal-2 } 
{AFTER} 




REPLACING {{ALL } { identifier - 

{literal-3 
{{LEADING} 
{{FIRST } 
{ CHARACTERS 


-5}} BY {identifier-6} 
} {literal-4 } 

} 
} 
} 


[{BEFORE} INITIAL {identifier-7}] ] 

{literal-5 } 
{AFTER} 





NOTE: The TALLYING option, the REPLACING option, or both 
options must be selected. 
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MOVE {identifier-1} TO identifier-2 [ ,identifier-3].. . 

i J.1 USIT3.X / 

MOVE { CDRRESPCMDING } identifier-1 TO identifier-2 
{ CORR } 

MULTIPLY {identifier-1} BY identifier-2 [ ROUNDED ] 

[,ON SIZE ERROR imperati ve-statement ] 

MULTIPLY {identifier-1} BY {identifier-2} GIVING identifier-3 
{literal-1 } {literal-2 } 

[ ROUNDED ] [; CN SIZE ERROR imperative-statement] 

OPEN {{ INPUT {file-name-1 [WITH NO REWIND ] } 

{, file-name-2 [WITH NO REWIND ] . . . 

{ OUTPUT {file-name-3 [WITH NO REWIND ] } 
{ , file-name-2 [WITH NO REWIND ] . . . 

{ 1-0 {file-name-5}[ , file-name- 6].. . 

{EXTEND file-naroe-7}] , file-name-8] ...}.. . 
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PERFORM procedure-name-1 [{ THROUGH } procedure-name-2] 

{ THRU } 

PERFORM procedure-name-1 [{ THROUGH } procedure-name-2 ] 

{ THRU } 

{identifier-1} TIMES 
{literal } 

PERFORM procedure-name-1 [{ THROUGH } procedure-name-2] 

{ THRU } 

UNTIL condition-1 

PERFORM procedure-name-1 [{ THROUGH } procedure-name-2] 

{ THRU } 

VARYING {identifier-2} FROM {identifier-3} 
{ index-name-1 } { index-name-2 } 

{ liter al-1 } 

BY {identifier-4} UNTIL condition-1 
{ literal-3 } 

[ AFTER {identifier-5} FROM {identifier-6} 
{ index-name-3 } { index-name-4 } 

{ literal-3 } 

BY {identifier-7} UNTIL condition-2 
{ literal-4 } 

[ AFTER {identifier-8} FRCM {identifier-9} 
{ index-name-5 } { index-name-6 } 

{literal-5 } 

BY {identifier -10} UNTIL condition-3 ] ] 
{ literal-6 } 
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READ file-name RECORD [ INTO identifier] 
[ ;AT END imperative-statement] 

READ file-name [ NEXT ] RECORD [WITH NO LOCK ] [INTO identifier] 
[ ; AT END imperative-statement ] 

READ file-name RECORD [WITH NO LOCK ] [INTO identifier] 
[; KEY is data-name] 
[,- INVALID KEY imperative-statement] 

REWRITE record-name [ FROM identifier] 

[ ; INVALID KEY imperative-statement ] 



SET {identifier -1 [ ,identifier-2] 
{ index-name-1 [ , index-name- 2 ] 



SET index-name-4 [ , index-name-5 ] 



} TO {identifier-3} 

] { index-name-3 } 

{ integer -1 } 

{UP BY } {identifier-4} 







{int 
{DOWN BY} 


START file-name 


[KEY {IS EQUAL TO } 
{IS = } 
{IS GREATER THAN } 
{IS > } 
{IS NOT LESS THAN } 
{IS NOT< } 


data-name ] 




[; INVALID KEY imperative-statement] 




STOP 


{RUN 
i literal. 


} 
} 
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SUBTRACT {identifier-1} [ ,identifier-2] ... FROM identifier-m 

t literal— 1 / L t literal— a J 

[ ROUNDED ] [; CN SIZE ERROR imperative-statement] 

SUBTRACT {identifier-1} [ ,identifier-2] ... FROM {identifier-m 
{ literal -1 } [,literal-2 ] {literal-m } 

GIVING identifier-n [ ROUNDED ] 

[;CN SIZE ERROR imperative-statement] 

SUBTRACT { CORRESPONDING } identifier-1 FROM identifier-2 [ RCXJNDED ] 
{ CORR } 

[;CN SIZE ERROR imperative-statement] 

UNLOCK file-name-1 RECORD 

USE AFTER STANDARD { EXCEPTION } 

{ ERROR } 
PROCEDURE CN {file-name-1 [ ,file-name-2] ...} . 
{ INPUT } 

{ OUTPUT } 

{ 1-0 } 

{ EXTEND } 

WRITE record-name [ FRCM identifier-1] 

{ BEFORE } ADVANCING {{identifier-2} {LINE }} 

{{integer } {LINES }} 
{ AFTER } { PAGE } 

WRITE record-name [ FRCM identifier] 

[; INVALID KEY imperative-statement] 



Radio /hack 

- 311 - 



Appendix D __» or-i ® RM/COBOL Language 



GENERAL FORMAT FOR CONDITIONS 



RELATION CONDITION 


. 




{ identif ier-1 


} 


{IS [NOT] GREATER THAN} { identif ier-2 


} 


{ literal -1 


} 


{literal-2 


} 


{index-name-1 


} 


{IS [NOT] LESS THAN } { index-name -2 
{IS [NOT] EQUAL TO } 
{IS [NOT] > } 
{IS [NOT] < } 
{IS [NOT] = } 


} 



CLASS CONDITION: 



identifier IS [ NOT ] { NUMERIC } 

{ALPHABETIC} 



CONDITION-NAME CONDITION: 



cond it ion-name 



SWITCH-STATUS CONDITION: 



condition-name 



NEGATED SIMPLE CONDITION: 



NOT simple-condition 



COMBINED CONDITION: 



condition {{ AND } condition} 
{OR } 
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MISCELLANEOUS FORMATS 



QUALIFICATION: 



{data-name-1 } [{OF} data-name-2] 
{ condition-name } 

{IN} 



paragraph-name [{OF} section-name] 
{IN} 



SUBSCRIPTING: 



{data-name } (subscript-1 [ , subscript-2 [ ,subscript-3]] ) 
{ condition-name } 



INDEXING; 

{data-name } ( { index-name-1 [{+} literal-2]} 
{condition -name } {literal-1 {-} } 

[ , { index-name-2 [ { +} literal-4 ] } 
{literal-3 {-} } 

[, { index-name-3 [{+} literal-6] } ] ] ) 
{literal-5 {-} } 
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IDENTIFIER: 



FORMAT 1 



data-name-1 [{OF} data-name-2] ... 
{IN} 

E ( subscript-1 [ , subscript-2 [ , subscript-3 ] ] ) ] 



FORMAT 2 

data-name-1 [{OF} data-name-2 ... [( { index-name-1 [{+} literal-2]} 

{ literal -1 {-} } 

{IN} 

[, { index-name-2 [{+} literal-4]} 
{literal-3 {-} } 

[, { index-name-3 [{+} literal-6]} ]])] 
{literal-5 {-} } 
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GENERAL FORMAT FOR COPY STATEMENT 



COPY text -name 
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ru c.pn 



RM/COBOL Language 



COBOL LEVEL OF IMPLEMENTATION 



Function Module 



Implementation 



Nucleus 

Table Handling 

Sequential I/O 

Relative I/O 

Indexed I/O 

Sort-Merge 

Report Writer 

Segmentation 

Library 

Debug 

Inter-program Communication 
Communication 



Level 2. 

Level 1+. 

Level 2. 

Level d. • 

Level 2. 

Null. 

Null. 

Level 1. 

Level 1. 

N/S. Conditional compile and 

execution time interactive debugger, 

Level 1. 

Modified ACCEPT and DISPLAY for 

terminal communication. 



ANSI COBOL X3.23 1974 




NUCLEUS 

TABLE HANDLING 

SEQUENTIAL I/O 

RELATIVE I/O 

INDEXED I/O 

SORT-MERGE 

REPORT WRITER 

SEGMENTATION 

LIBRARY 

DEBUG 

UN 1 riK^FKLAoKHIYL 

COMMUNICATION 
COMMUNICATION 



FEDERAL INFORMATION 
PROCESSING STANDARD (FTPS) 





HIGH 


rl l t*iH 


INTERMEDIATE 


2 


2 


2 


2 


2 


2 


2 


2 


2 


- 


2 


1 


2 


1 


2 


1 


2 


2 


2 


2 


2 


2 






RM 




LOW 


COBOL 


1 


2 


1 


1+ 


1 


2 


- 


2 


— 


2 


„„., 


1 


- 


1 


- 


N/S 


— 


1+ 


- 


N/S | 



N/S = Nonstandard 
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EXTENSIONS BEYOND STATED LEVELS 



Level 2 Nucleus (2 NUC) : 

Data description includes a USAGE type of 
C0MPUTATI0NAL-1 or COMP-1 for describing single word 
two's complement signed binary data (nonstandard). 

Data description includes a USAGE type of 
COMPUTATIONAL -3 or COMP-3 for describing packed 
decimal data (nonstandard). 

- The ACCEPT statement allows multiple operands 
(nonstandard) . 

- The ACCEPT statement includes syntax for specifying 
CRT control information (nonstandard). 

- The DISPLAY statement includes syntax for specifying 
CRT control information (nonstandard). 

Level 1 Table Handling (1 TBL): 

- Variable group size (OCCURS DEPENDING). 
Level 2 Sequential 1-0 (2 SEQ) : 

- The file control SELECT clause allows specification of 
the external file name as a literal or data item 
(nonstandard) . 

- The READ statement includes the WITH NO LOCK option 
(nonstandard) . 

- The UNLOCK statement is included (nonstandard) . 
Level 2 Relative 1-0 (2 RED: 

- The file control SELECT clause allows specification 
of the external file name as a literal or data item 
(nonstandard) . 

- The READ statement includes the WITH NO LOCK option 
( nonstandard) . 

The UNLOCK statement is included (nonstandard). 
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Level 2 Indexed 1-0 (2 INX) : 

The file control SELECT clause allows specification 
of the external file name as a literal or data item 
(nonstandard) . 

- The READ statement includes the WITH NO LOCK option 
( nonstandard) . 

The UNLOCK statement is included (nonstandard). 



Level 1 Debug (1 DEB): 

- An interactive execution time debug facility is 
provided (nonstandard). 

Level 1 Inter-Program Communication (1 IPC). 

The CALL statement allows literals in USING phrase 
(nonstandard) . 

The CALL statement allows identifiers in the USING 
phrase to be described with level number 01 through 
49 and level number 77 (nonstandard) . 

- The CALL statement supports specification of a 
variable program name as identifier-1 (level 2 IPC) 

Level 1 Communication (1 COM): 

- ACCEPT and DISPLAY allow specification of complete 
screen format in the Procedure Division 
(nonstandard) . 
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EXCEPTIONS TO STATED LEVELS 
Level 2 Nucleus (2 NUC) : 

- DATE-COMPILED is not supported in the Identification 
Division . 

In data description the SIGN clause cannot specify 
LEADING for the operational sign; omission of the 
SEPARATE phrase has no effect; all operational signs 
are separate trailing characters. 

- Alphabet-name IS literal or implementor-name may not 
be specified in SPECIAL-NAMES paragraph. 

- Multiple results are not supported in arithmetic 
statements . 

- REMAINDER is not supported in DIVIDE statement. 

- A procedure-name is required in GO TO statements. 

INSPECT data items are restricted to single 
character. 

- Compound TALLYING and REPLACING clauses in the 
INSPECT statement are not supported. 

When used in the Procedure Division, the numeric 
literal in the ALL form of a figurative constant may 
not contain more than one character. 

- Arithmetic expressions may be used only in COMPUTE 
statements . 

Exponentiation to a noninteger power is not 
supported. 

Sign conditions are not supported. 

Abbreviated combined relation conditions are not 
supported. 

The STRING and UNSTRING statements are not 
supported. 
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Level 2 Sequential 1-0 (2 SEQ) : 

OPTIONAL and RESERVE may not be specified in the 
SELECT clause. 

- RERUN, SAME AREA or MULTIPLE FILE clauses are not 
supported in 1-0 CONTROL. 

- CODE-SET and LINAGE clauses may not be specified in 
a file description entry. 

The mnemonic -name and EOP options of the WRITE 
statement are not supported. 

- The REVERSED option of the OPEN statement is not 
supported. 

- The FOR REMOVAL option of the CLOSE statement is not 
supported. 

Level 2 Relative 1-0 (2 RED: 

- The RESERVE clause of the SELECT entry is not 
supported. 

- RERUN, SAME AREA or MULTIPLE FILE clauses are not 
supported in I-0-CONTROL. 

- The VALUE OF clause in an FD entry must not specify 
a data name. 

Level 2 Indexed 1-0 (2 INX) : 

- The RESERVE clause of the SELECT entry is not 
supported. 

- RERUN, SAME AREA or MULTIPLE FILE clauses are not 
supported in I-0-CONTROL. 

Level 1 Segmentation (1 SEQ): 

- All independent segments must physically follow the 
fixed permanent segments in the source program. 
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Level 1 Library (1 LIB): 

- A copy sentence must be the last entry in area B of 
a source record. 

Level 1 Inter-Program Communication (1 IPC): 

- A CALLed program is automatically cancelled upon 
execution of the EXIT PROGRAM statement. 



Radio Shaek 

- 321 - 



RM/COBOL Language 



TRS-SO 



® 



IIOEX 



77 Level Description Entry 65 

_ _ ^ __ 

ACCEPT. . .FROM Statment 153 

ACCEPT Statment (Terminal I/O) 154 

Access Modes 147 

ADD Statement 161 

Al gebrai c Signs 101 

ALL Literal 21 

Alphabet -Name 17 

ALTER Statement 122, 165 

Ari thmeti c Expressi ons 125 

Ari thmeti c Operators 126 

Ari thmeti c Statements 125 

Expressi ons 125 

Formati on 126 

Operators 126 

Rules 126 

At End Condition 146, 152 

— B — 

BLANK WHEN ZERO Clause 94 

— C - 

CALL Statement 166 

Character Set 11 

Character Str i ngs 15 

Class Condi ti on 132 

Classes of Data 100 

Clauses 

BLANK WHEN ZERO 94 

Data-Name 70 

DATA RECORD 62 

JUSTI FI ED 93 

LABEL RECORD 61 

OCCURS 89 

REDEFINES 71 

RENAMES 98 

3X\3 li ••••••••••••••••••••• ••••••••• OO 

SYNCHRONI ZED 91 

VALUE Is 95 

Clauses and Entries 28 

CLOSE Statement ...... 168 

CLOSE Statement 

(Relative and Indexed I/O )...170 
CLOSE Statement (Sequential I/O ) . • . 168 



ALL Literal 21 

Clauses and Entries.. ............ .28 

l omme n t. — t n x, vy *.•.*.■•.<••••«•.••.• c.s 

Configuration Section.. . ........ 

Special -Names Paragraph. 

The Object-Computer Paragraph. 

The Object-Computer Paragraph. 

Character Set 

Character Strings 

COBOL Words 

Compi 1 e Time 

Condition-Name 

Connect i ves , 

Data Division 

Data-Name 

Divisions 

Environment Division 

Introduction 

Error Messages 249, 

Figurative Constants 

File-Name 

I den t i f i cati on Division 

Input-Output Section 

The File-Control Paragraph 

Key Words 

Language Structure 

Level -Number.. 

COBOL Words 

Nonnumeric Literals 

Numeric Literals 

Optional Words 

Paragraph -Name.. 

Paragraphs 

Picture String.... 

Program I den ti f i cati on 

Author Paragraphs 

Date-Written Paragraphs 

Installation Paragraphs 

Security Paragraphs.. 
Program-Name ........... 

Program Structure 

Clauses and Entries.. 

Divisions 

Paragraphs 

Sections... 



..39 
..42 
..40 
..40 
..11 
..15 
..15 
.251 
..17 
..19 
..53 
..16 
..29 
..37 
..39 
251 
..19 
..16 
...4 
..33 
..44 

..19 

..11 

..18 

..22 

..15 

,.22 

,.22 

,.19 

.17 

.28 

.23 

.35 

.36 

.36 

.36 

.36 

.16 

.24 

.28 

.29 

.28 

.28 
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TRS-SO 



® 



INDEX 



Sentences 27 

Source Format 24 

Statements 26 

The Copy Statement 29 

Record -Name 16 

Reserved Words 19 , 259 

Section-Name 17 

Sections 28 

Segment-Number 18 

oonrences .••••.•«..«•««••««««..**«<&/ 

Source Format 24 

Blank Lines 25 

Comment Lines 25 

Continuation of Lines 25 

Debugging Lines 26 

Special Characters 21 

Standardization 5 

Statements 26 

System Names 23 

Text -Name 18 

The Copy Statement 29 

User Words 16 

Alphabet-Name 17 

Condition -Name 17 

Data -Name 16 

File-Name 16 

Index -Name 17 

Level-Number 18 

Paragraph-Name 17 

Program-Name 16 

Record-Name 16 

Section-Name 17 

Segment-Number 18 

Text -Name 18 

COBOL Introduction 3 

COBOL Literals 22 

Numeric Literals 22 

Combined Conditions 135 

Ccmment-Entry 23 

Ccmpari son, Index Names 132 

Comparison, Numeric Operands 130 

Comparison, Nonnumeric Operands . . . 130 
Relation ......................... 129 

Comparison , Nonnumeric Operands 130 

Ccmpari son, Numeric Operands 130 

Comparisons , Index Data Items 132 

ccmpari. sons , moex ""Names ...... *«.*••• u^ 



Complex Conditions 134 

Conditionals 129 

Class Condition 132 

Combined 135 

Ccmpari sons, Index Data Items 132 

Complex Condition 134 

Evaluation Rules 136 

Negated Combined 135 

Switch Status 133 

Variable 133 

Condition Evaluation Rules 136 

Conditional Relations 129 

Conditional Variables 133 

Condition-Name 17 

Configuration Section 39 

Special -Names Paragraph 42 

The Object-Computer Paragraph 40 

The Source-Computer Paragraph 40 

Current Record Pointer 148 

Connectives 19 

Continuation of Lines 25 

— D — 

Data 100 

Classes 100 

Condition-Name 108 

Identifier 107 

Indexing 106 

Qualification 103 

Structures 100 

Subscripting 105 

Table Handling 109 

Data Alignment 102 

Standard Allignment 102 

Data Description Entry 66 

Data Division 53 

File Section 57 

The Block Contains Clause 59 

The File Descripion Entry 58 

The Record Contains Clause 60 

Introduction 55 

Data Name 16 

Data -Name Clause 70 

DATA RECORD Clause 62 

Data Records 62 

Data Structures 100 

JL/Ctv— siz vVJL Xm wUol ••••••••••••••••••••••••• Jw 

JL/cL*> JLciX. cL LI VviJo •••••••••••••*•••••••••• •i-.JL / 
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® 



INDEX 



Delete Statement... 
DISPLAY Statement.. 
DIVIDE Statement... 
DIVISION PROCEDURE. 
Divisions 



• •••••• • • JL / *T 

• •••••••• X / 3 

115 

• ••••••••• &.«/ 



— E — 

E 1 emen t ary I terns 64 

Entries 

77 Level Description 65 

Data Description 66 

Record Descri ption 64 

Environment Division 37 

Introduction 39 

Error Messages 249 

Compi 1 e Time 251 

Execution 117 

EXIT Statement 182 

Expressi ons 125 

Ari thmeti c Expressions 125 

— f - 

Figurati ve Constants 19 

File-Name 16 

File Section 57 

The Block Contains Clause 59 

The File Discri ption Entry 58 

The Record Contains Clause 60 

Fil ler Clause 70 

Fixed Insertion Editing 80 

Fixed Portion 120 

Floating Insertion Editing 81 

Function 147 

„ G -- 

GO TO Statement ..183 

_- i „ 

I den t i f i cation Di vi si on 33 

Introduction 35 

Identifier 107 

IF Statement 184 

Independent Segments 120 

Indexed Organization I/O 147 

Access Modes 147 

Current Record Pointer... 148 

Function 147 

I /0 Status 148 



Status Key 1 ....148 

Status Key 2 149 

Organization.... ....147 

Indexing ......106 

Index -Name 17 

Input -Output Section ...44 

Indexed File Control Entry 49 

I/O Control Paragraph 52 

Relative File Control Entry 47 

Sequential File Control Entry 45 

INPUT Phrase 208 

INSPECT Statement 186 

INVALID KEY Condition 145, 151 

Installation 36 

I/O 145 

At End Condition 146, 152 

Indexed Organi zation 147 

Invalid Key Condition 145, 151 

I/O Status 148 

— j __ 

Justified Clause 93 

— K — 

Key Words 19 

__ l — 

LABEL RECORD 61 

Language Structure 11 

Level -Numbers 18, 64, 69 

L ink age Secti on 63 

Literal s 22 

Numeric 22 

Logical Records 

Level -Number 69 

— M — 

MOVE Statement 194 

MULTI PLY Statement 199 



Negated Combined Conditions 

Nonnumeric Literals 

Numeric Items , 

Numeric Literals 

__ o — 

Occurs Clause , 



135 

101 
.22 



.89 
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TRS-SO 



© 



INDEX 



OPEN Statement..... 201, 205 

Optional Words... 19 

OUTPUT Phrase 203 

Organi zati on 147 

— p — 

Paragraph -Name.... 17 

Paragraphs .28, 36 

PERFORM Statement 122, 209 

PICTURE Clause 73 

Picture Editing 80-85 

Floating Insertion 81 

Fixed Insertion.. .80 

Simple Insertion 80 

Speci al I nserti on 80 

Zero S uppr es s i on 82 

Picture String 23 

Procedural Statmen t 153 

PROCEDURE DIVISION 115 

Declaratives 117 

Executi on 117 

Procedure References 118 

Procedures 117 

Program-ID Paragraph 36 

Author 36 

Date-Wri tten 36 

Installation 36 

Security 36 

Program Identification 35 

Author Paragraphs 36 

Date-Wri tten Paaragraphs 36 

I ns tal 1 ati on Paragraphs 36 

Program-ID Paragraph 36 

Security Paragraphs 36 

Program Name 16 

Program Structure 24 

Divisions 29 

Paragraphs 28 

Source Format 24 

Blank Lines 25 

Clauses and Entries 28 

Comment L ines 25 

Continuation of Lines ..25 

Secti ons 28 

O ci I tCflLcb t • • •• ••• • • • •• • • • » • • • •«•&./ 

u tci usmsn ts ••••••••••••••«••••••••• tb 

The Copy Statement 29 



- Q - 

Qualification 



Entry, 



— R — 

READ Statement.. .. 
Record Description 
Record Description 

Record-Name 

REDEFINES Clause.... 

Relation Condition 

Relative Organization I/O 

Access Modes 

At End Conditio 

Current Record 

Function 

Invalid Key Con 

I/O Status 

Organization.. . 

Status Key 1... 

Status Key 2... 

RENAMES Clause 

Reserved Words.... 
REWRITE Statement. 



m.. . 
Poin 



iditi 



ter, 
on., 



103 



221, 224 
64 

...64 
...16 
...71 

• * X.C, *7 

..141 
..141 
..146 
..142 
..141 

..142 
..141 

• • X^r C 

....143 
98 

19, 259 
229, 231 



„ s - 

Sections 

Linkage 

Working-Storage 

Section-Words 

Security Paragraphs 

Segment ati on 

Alter , 

Classification , 

Perform , 

Control , 

Fixed Portion , 

Independent Segments , 

Segments 

Use Statement , 

Segment-Number , 

segments ..*•<*••••.. .•..**«.< 
oen tences ■••••*••••■*««. .«««< 
oeparai-ors ■.«..•.«•«••*•••*•< 

Sequential I/O , 

Relative Organization I/O. 

Sequential Organization 1/0., 

Access Mode 



, 28 

63 

63 

, 17 

36 

120 

122, 165 

121 

122 

121 

120 

120 

120 

• • • • • X&LO 

•••••• 18 

120 

27 

• ••••• X*T 

137 

141 

137 

• • • • • A sJ i 

137 
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TRS-SO 



® 



INDEX 



Current Record Pointer 137 

Function 137 

1-0 Status 138 

Organization 137 

Status Key 1 138 

Status Key 2 ...138 

SET Statement 233 

Simple Insertion Editing 80 

SIGN Clause 88 

Source Format 24 

Blank Lines 25 

Comment Lines 25 

Continuation of Lines 25 

Debugging Lines 26 

Program Structure 24 

Clauses and Entries 28 

Paragraphs 28 

Sections , 28 

Special Characters 21 

Special Insertion Editing 80 

START Statement 235 

Statements 26 , 122 

ACCEPr FROM. 153 

ACCEPT ( Terminal I/O) 154 

ADD 161 

ALTER 122 

CALL 166 

CLOSE (Sequential I/O) 168 

CLOSE (Relative and Indexed I/O). 170 

COMPUTE 172 

DELETE 174 

DISPLAY 175 

DIVIDE 179 

EXIT 182 

GO TO 183 

IF 184 

INSPECT 186 

MOVE 194 

MULTIPLY 199 

OPEN 201, 205 

OUTPUT Phrase 203 

PERFORM 122 , 209 

READ 221 , 224 

REWRITE 229 , 231 

SET 233 

START 235 

STOP 237 



SUBTRACT. 238 

UNLOCK. ....... 242 

USE 123 

WRITE ( Relative and Indexed I/O).. 24 6 

Status Key 1 148 

Status Key 149 

STOP Statement 237 

Subscripting 105 

SUBTRACT Statement 238 

Switch-Status Condition .133 

SYNCHONIZED Clause 91 

System Names 23 

— T — 

Table Handling 109 

Terminal I/O 154 

ACCEPT Statment 154 

BLINK Phrase 159 

CONVERT Phrase 157 

ECHO Phrase 157 

ERASE Phrase 158 

HIGH/LOW Phrase 159 

LINE Phrase 155 

NO BEEP Phrase. 159 

OFF Phrase 159 

ON EXCEPTION Phrase 160 

POSITION Phrase. 155 

PROMPT Phrase 157 

REVERSE PHRASE. 159 

SI ZE Phrase 15 6 

TAB Phrase 158 

UNIT Phrase 155 

Text -Name 18 

THE Copy Statement 29 

The Object-Computer Paragraph 40 

The Source-Computer Paragraph 40 

— U — 

UNLOCK Statement. , , , 242 

Usage Clause 86 

User Words 16 

Alphabet-Name 17 

Condition-Name 17 

Data -Name 16 

File-Name 16 

Index-Name 17 

Level-Number 18 
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INDEX 



Paragraph-Name 
Program- Name., 
Record-Name.... 
Section-Name.., 
Segment-Number 
Text-Name , 

„ v — 

VALUE IS Clause.., 



17 
16 
16 
17 
18 
18 



95 



-_ w -- 

Working-Storage Section 63 

WRITE Statement (Sequential I/O. ....243 
WRITE Statement 

(RELATIVE and Indexed I/O.. ...246 

._ z - 

Zero Suppression Editing 82 
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